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DATA COMPRESSION AND DECOMPRESSION 



CROSS REFERENCE TO APPFMHTr^rc; 
5 Appendix A, which is a part of the present 

disclosure, is a listing of a software implementation 
written in the programming language C. 

Appendices B-1 and B-2, which are part of the present 
disclosure, together are a description of a hardware 
10 implementation in the commonly used hardware description 
language ELLA. 

Appendix C, which is part of the present disclosure 
is a listing of a software implementation written in the 
programming language C and assembly code. 
15 A portion of the disclosure of this patent docuaent 

contains material which is subject to copyright 
protection. The copyright owner has no objection to the 
facsimile reproduction by anyone of the patent document, 
but otherwise reserves all copyright rights whatsoever. 

20 FTELD OF THE INVEWTTOW 

This invention relates to a method of and apparatus 
for data compression and decompression. In particular, 
this invention relates the compression, decompression, 
transmission and storage of audio, still-image and video 
25 data in digital form. 

BACKGROUND INFORMATION 

An image such as an image displayed on a computer 
monitor may be represented as a two-dimensional matrix of 
digital data values. A single frame on a VGA computer 
3 0 monitor may, for example, be represented as three matrixes 
of pixel values. Each of the three matrixes has a data 
value which corresponds to a pixel on the monitor. 

The images on the monitor can be represented by a 64 0 
by 48 0 matrix of data values representing the luminance 
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(brightness) values Y of the pixels of the screen and two 
other 640 by 480 matrixes of data values representing the 
chrominance (color) values U and V of the pixels on the 
screen. Although the luminance and chrominance values are 
5 analog values, the one luminance value and the two 
chrominance values for a pixel may be digitized from 
analog form into discrete digital values. Each luminance 
and chrominance digital value may be represented by an 8- 
bit number. One frame of a computer monitor therefore 

10 typically requires about 7 megabits of memory to store in 
an uncompressed form. 

In view of the large amount of memory required to 
store or transmit a single image in uncompressed digital 
form, it would be desirable to compress the digital image 

15 data before storage or transmission in such a way that the 
compressed digital data could later be decompressed to 
recover the original image data for viewing. In this way, 
a smaller amount of compressed digital data could be 
stored or transmitted. Accordingly, numerous digital 

20 image compression and decompression methods have been 
developed. 

According to one method, each individual digital 
value is converted into a corresponding digital code. 
Some of the codes have a small nxmber of bits whereas 

25 others of the codes have a larger number of bits. In order 
to take advantage of the fact that some of the codes are 
short whereas others of the codes are longer, the original 
digital data values of the original image are filtered 
using digital filters into a high frequency component and 

30 a low frequency component. The high frequency component 
represents ambiguities in the image and is therefore 
observed to have a comparatively large number of identical 
data values for real-vorld images. By encoding the 
commonly occurring digital data values in the high 

3 5 frequency component with the short digital codes, the 

total number of bits required to store the image data can 
be reduced from the number of bits that would otherwise be 
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required if 8-bits were used to represent all of the data 
values. Because the total number of bits in the resulting 
encoded data is less than the total number of bits in the 
original sequence of data values, the original image is 
5 said to have been compressed. 

To decompress the compressed encoded data to recover 
the original image data, the compressed encoded data is 
decoded using the same digital code. The resulting high 
and low frequency components are then recombined to form 
10 the two-dimensional matrix of original image data values. 
Where the data being compressed is two-dimensional 
data such as image data, separation of the original data 
into high and low frequency components by the digital 
filters may be accomplished by filtering in two dimensions 
15 such as the horizontal dimension of the image and th« 
vertical dimension of the image. Similarly, decoded high 
and low frequency components can be recombined into the 
original image data values by recombining in two 
dimensions. 

20 To achieve even greater compression, the low 

frequency component may itself be filtered into its high 
and low frequency components before encoding. Similarly, 
the low frequency component of the low frequency, component 
may also be refiltered. This process of recursive 

25 filtering may be repeated a number of times. Whether or 
not recursive filtering is performed, the filtered image 
data is said to have been "transformed" into the high and 
low frequency components. This digital filtering is 
called a "transform". Similarly, the high and low pass 

3 0 components are said to be "inverse transformed" back into 
the original data values. This process is known as the 
"inverse transform". 

Figure l is a diagram of a digital gray-scale image 
of a solid black square 1 on a white background 2 

35 represented by a 640 by 480 matrix of 8-bit data luminance 



values. 



Figure 2 is a diagram illustrating a first 
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intermediate step in the generation of the high and low 
frequency components of the original image. A high pass 
digital filter which outputs a single data value using 
multiple data values as inputs is first run across the 
5 original image values from left to right, row by row, to 
generate G subblock 3. The number of digital values in G 
subblock 3 is half of the number of data values in the 
original image of Figure 1 because the digital filter is 
sequentially moved to the right by twos to process two 
10 additional data values for each additional one data output 
generated for G subblock 3. Similarly, a low pass digital 
filter which outputs a single data value using multiple 
data values as inputs is first run across the original 
image values from left to right, row by row, to generate H 
15 subblock 4. The number of digital values in H subblock 4 
is half of the number of data values in the original image 
because the digital filter is moved to the right by twos 
to process two additional data values for each additional 
one data output generated for H subblock 4 . Each of the 
20 two vertical bars in high pass G subblock 3 appears where 
a change occurs spatially in the horizontal dimension in 
the original image of Figure l. Where the G filter 
encounters a change from white data values to black data 
values when the filter G is run across the image of Figure 
25 1 in a horizontal direction, the G digital filter outputs 
a corresponding black data value into subblock 3. 
similarly, when the G digital filter encounters the next 
change, which is this time a change from black to white 
data values, the G digital filter again outputs a 
30 corresponding black data value into G subblock 3. 

Figure 3 is a diagram illustrating a second 
intermediate step in the generation of the high and low 
frequency components of the original image. The high pass 
digital filter is run down the various columns of the 
3 5 subblocks H and G of Figure 2 to form the HG subblock 5 
and GG subblock 6 shown in Figure 3. Similarly, the low 
pass digital filter is run down the various columns of the 
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H and G subblocks 3 and 4 of Figure 2 to form HH and GH 
subbloc3cs 7 and 8 shown in Figure 3. The result is the 
low pass ccmponent in subblock HH and the three high pass 
cooponent subblocks GH,. KG and GG. The total number of 
5 high and low pass component data values in Figure 3 is 
equal to the number of data values in the original image 
of Figure 1. The data values in the high pass component 
subblocks GH, HG and GG are referred to as the high 
frequency component data values of octave 0, 

10 The low pass subblock HH is then filtered 

horizontally and vertically in the same way into its low 
and high frequency components. Figure 4 illustrates the 
resulting subblocks. The data values in HHHG subblock 9, 
HHGH subblock 10, and HHGG subblock 11 are referred to as 

15 the high frequency component data vales of octave 1. 
Subblock HHHH is the low frequency component. Although 
not illustrated, the low frequency HHHH subblock 12 can be 
reflltered using the same method. As can be seen froa 
Figure 4, the high frequency components of octaves 0 and 1 

2 0 are predominantly white because black in these subblocks 

denotes changes from white to black or black to white in 
the data blocks from which to high frequency subblocks are 
generated. The changes, which are sometimes called edges, 
from white to black as well as black to white in Figure 1 
25 result in high frequency data values in the HG, HG and GG 
quadrants as illustrated in Figure 3. 

Once the image data has been filtered the desired 
number of times using the above method, the resulting 
transformed data values are encoded using a digital code 

3 0 such as the Huffman code in Table l. 
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Corresponding Digital 
Gray-Scale Value 



Digital 
Code 



15 



10 



black 
white 



5 
4 
3 
2 
1 
0 

-1 
-2 
-3 
-4 
-5 



1000001 

100001 

10001 

1001 

101 

0 

111 

1101 
11001 
110001 
1100001 



20 



Table 1 



Because the high frequency compcnents of the original 
image of Figure 1 are predominantly white as is evident 
from Figures 3 and 4, the gray-scale white is assigned the 
single bit 0 in the above digital code. The next most 
25 common gray-scale color in the transformed image is blacJc. 
Accordingly, gray-scale black is assigned the next 
shortest code of 101. The image of Figure 1 is comprised 
only of black and white pixels. If the image were to 
involve other gray-scale shades, then other codes would be 
30 used to encode those gray-scale colors, the more 
predominant gray-scale shades being assigned the 
relatively shorter codes. The result of the Huffman 
encoding is that the digital values which predominate in 
the high frequency components are coded into codes having 
35 a few number of bits. Accordingly, the number of bits 
required to represent the original image data is reduced. 
The image is therefore said to have been compressed. 

Problems occur during compression, however, when the 
digital filters operate at the boundaries of the data 
40 values. For example, when the high pass digital filter 
generating the high pass component begins generating high 
pass data values of octave 0 at the left hand side of the 
original image data, some of the filter inputs required by 
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the filter do not exist. 

Figure 5 illustrates the four data values required by 
a four coefficient high pass digital filter G in order to 
generate the first high pass data value Gq of octave 0. As 
5 shown in Figure 5, data values D,, D,, D3 and are 

required to generate the second high pass data value of 
octave 0, data value G, . In order to generate the first 
high pass component output data value Gq, on the other 
hand, data values D.,, Do, D,, and Dj are required. Data 
10 value D., does not, however, exist in the original image 
data. 

Several techniques have been developed in an attempt 
to solve the problem of the digital filter extending 
beyond the boundaries of the image data being transformed. 

15 In one technique, called zero padding, the nonexistent 
data values outside the image are simply assumed to be 
zeros. This may result in discontinuities at the 
boundary, however, where an object in the image would 
otherwise have extended beyond the image boundary but 

2 0 where the assumed zeros cause an abrupt truncation of the 
object at the boundary. In another technique, called 
circular convolution, the two dimensional multi-octave 
transform can be expressed in terms of one dimensional 
finite convolutions. Circular convolution joins the ends 

25 of the data together. This introduces a false 

discontinuity at the join but the problem of data values 
extending beyond the image boundaries no longer exists. 
In another technique, called symmetric circular 
convolution, the image data at each data boundary is 

30 mirrored. A signal such as a ramp, for example, will 
become a peak when it is mirrored. In another technique, 
called doubly symmetric circular convolution, the data is 
not only mirrored spatially but the values are also 
mirrored about the boundary value. This method attempts 

35 to maintain continuity of both the signal and its first 
derivative but requires more computation for the extra 
mirror because the mirrored values must be pre-calculated 
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before convolution. 

Figure 6 illustrates yet another technique which has 
been developed to solve the boundary problem. According 
to chis technique, the high and low pass digital filters 
5 are noved through the data values in a snaJce-like pattern 
in order to elininate image boundaries in the image data. 
After the initial one dimensional convolution, the image 
contains alternating columns of low and high pass 
information. By snaking through the low pass sub-band 
10 before the high pass, only two discontinuities are 

introduced. This snaking technique, however, requires 
reversing the digital filter coefficients on alternate 
rows as the filter moves through the image data. This 
changing of filter coefficients as well as the requirement 
15 to change the direction of movement of the digital filters 
through various blocks of data values makes the snaking 
technique difficult to implement. Accordingly, an easily 
implemented method for solving the boundary problem is 
sought which can be used in data compression and 
20 decompression. 

Not only does the transformation result in problems 
at the boundaries of the image data, but the transforma- 
tion itself typically requires a large number of complex 
computations and/or data rearrangements. The time 
25 required to compress and decompress an image of data 

values can therefore be significant. Moreover, the cost 
of associated hardware required to perform the involved 
computations of the forward transform and the inverse 
transform may be so high that the transform method cannot 
30 be used in cost-sensitive applications. A compression and 
decompression method is therefore sought that not only 
successfully handles the boundary problems associated with 
the forward transform and inverse transform but also is 
efficiently and inexpensively implementable in hardware 
3 5 and/or software. The computational complexity of the 
method should therefore be low. 

In addition to transformation and encoding, even 
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further compression is possible. A method known as tree 
encoding may, for example, be employed. Moreover, a 
method called quantization can be employed to further 
compress the data. Tree encoding and quantization are 
5 described in various texts and articles including "Image 
Compression using the 2-D Wavelet Transform" by A.S. Lewis 
and G. Knowles, published in lEZE Transactions on Image 
Processing, April 1992. Furthermore, video data which 
comprises sequences of images can be compressed by taking 
10 advantage of the similarities between successive images. 
Where a portion of successive images does not change from 
one image to the next, the portion of the first image can 
be used for the next image, thereby reducing the number of 
bits necessary to represent the sequence of images. 
15 JPEG (Joint Photographies Experts Group) is- an 

international standard for still-images which typically 
achieves about a 10:1 compression ratios for monochrome 
images and 15:1 compression ratios for color images. The 
JPEG standard employs a combination of a typo of Fourier 
20 transform, known as the discrete-cosine transform, in 
combination with quantization and a Huffman-like code. 
MPEGl (Motion Picture Experts Group) and MFEG2 are two 
international video compression standards. MPEG2 is a 
standard which is still evolving which is targeted for 
25 broadcast television. MPEG2 allows the picture quality to 
be adjusted to allow more television information to be 
transmitted, e.g., on a given coaxial cable. H.261 is 
another video standard based on the discrete-cosine 
transform. H.261 also varies the amount of compression 
3 0 depending on the data rate required. 

Compression standards such as JPEG, MPEGl, MPEG2 and 
H.261 are optimized to minimize the signal to noise ratio 
of the error between the original and the reconstructed 
image. Due to this optimization, these methods are very 
35 complex. Chips implementing MPEGl, for example, may be 
costly and require as many as 1.5 million transistors. 
These methods only partially take advantage of the fact 
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that the human visual system is quite insensitive to 
signal to noise ratio. Accordingly, some of the 
complexity inherent in these standards is wasted on the 
human eye. Moreover, because these standards encode by 
5 areas of the image, they are not particularly sensitive to 
edge-type information which is of high importance to the 
human visual system. In view of these maladaptions of 
current compression standards to the characteristics of 
the human visual system, a new compression and 

10 decompression method is sought which handles the above- 
described boundary problem and which taXes advantage of 
the fact that the human visual system is more sensitive to 
edge information than signal to noise ratio so that the 
complexity and cost of implementing the method can be 

15 reduced. 

SUMMARY 

A compression and decompression method using wavelet 
decomposition, frequency based tree encoding, tree based 
motion encoding, frequency weighted quantization, Huffman 

20 encoding, and tree based activity estimation for bit rate 
control is disclosed. Forward and inverse quasi-perfect 
reconstruction transforms are used to generate the wavelet 
decomposition and to reconstruct data values close to the 
original data values. The forward and inverse quasi- 

25 perfect reconstruction transforms utilize special filters 
at the boundaries of the data being transformed and/or 
inverse transformed to solve the above-mentioned boundary 
problem. 

In accordance with some embodiments of the present 
30 invention, a decompression method uses four coefficient 
inverse perfect reconstruction digital filters. The 
coefficients of these inverse perfect reconstruction 
digital filters require a small number of additions to 
implement thereby enabling rapid decompression in software 
35 executing on a general purpose digital computer having a 
microprocessor. The method partially inverse transforms a 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/00677 



- 11 - 

sub-band decomposition to generate a snail low frequency 
component image. This snail inage is expanded in one 
dinension by perfcrning interpolation on the rows of the 
snail inage and is expanded in a second dinension by 
5 replicating rows of the interpolated snail inage. 
Transforned chroninance data values are inverse 
transformed using inverse perfect reconstruction digital 
filters having a fewer number of coefficients than the 
inverse perfect reconstruction digital filters used to 

10 inverse transfom the corresponding transformed luminance 
data values. In one embodiment, two coefficient Haar 
digital filters are used as the inverse perfect 
reconstruction digital filters which inverse transform 
transformed chroninance data values. Variable-length 

15 tokens are used in the compressed data stream to indicate 
changes in encoding methods used to encode data values in 
the compressed data stream. 

BBTFF DESCRIPTION OF THE DRAWINGS 

Figures 1-4 (Prior Art) are diagrams illustrating a 
20 sub-band decomposition of an image. 

Figure 5 (Prior Art) is a diagram illustrating a 
boundary problem associated with the generation of prior 
art sub-band decompositions. 

Figure 6 (Prior Art) is a diagram illustrating a 
25 solution to the boundary problem associated with the 
generation of prior art sub-band decompositions. 

Figure 7 is a diagram illustrating a one-dimensional 
decomposition. 

Figures 8 and 9 are diagrams illustrating the 
30 separation of an input signal into a high pass component 
and a lev pass component. 

Figures 10, 11, 14 and 15 are diagrams illustrating a 
transformation in accordance with one embodiment of the 
present invention. 
35 Figures 12 and 13 are diagrams illustrating the 

operation of high pass and low pass forward transfom 
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digital filters in accordance with one embodinent of the 
present invention. 

Figure 16 is a diagram of a two-dimensional matrix of 
original data values in accordance with one embcdiment of 
5 the present invention. 

Figure 17 is a diagram of the two-dimensional matrix 
of Figure 16 after one octave of forward transform in 
accordance with one embodiment of the present invention. 
Figxire 18 is a diagram of the two-dimensional matrix 
10 of Figure 16 after two octaves of forward transform in 
accordance with one embodiment of the present invention. 

Figures 19 and 2 0 are diagrams illustrating a 
boundary problem solved in accordance with one embodiment 
of the present invention. 
15 Figure 21 is a diagram illustrating the operation of 

boundary forward transform digital filters in accordance 
with one embodiment of the present invention. 

Figure 22 is a diagram illustrating the operation of 
start and end inverse transform digital filters In 
20 accordance with one embodiment of the present invention. 

Figure 23 Is a diagram illustrating a one-dimensional 
tree structure in accordance one embodiment of the present 
invention. 

Figure 2 4A-0 are diagrams illustrating the recursive 
25 filtering of data values to generate a one-dimensional 
decomposition corresponding with the one-dimensional tree 
structure of Figure 23. 

Figure 25 Is a diagram of a two-dimensional tree 
structure of two-by-two blocks of data values In 
30 accordance with one embodiment of the present invention. 

Figure 26 Is a pictorial representation of the data 
values of the two-dimension tree structure of Figure 25. 

Figures 27-29 are diagrams illustrating a method and 
apparatus for determining the addresses of data values of 
35 a tree structure in accordance with one embodiment of the 
present invention. 

Figure 30 and 31 are diagrams Illustrating a 
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quantization of transforaed data values in accordance with 
one embodiment of the present invention. 

Figures 32 and 33 are diagrams illustrating the 
sensitivity of the human eye to spatial frequency. 
5 Figures 34 is a diagram illustrating the distribution 

of high pass component data values in a four octave 
wavelet decomposition of the test image Lenna. 

Figure 35 is a diagram illustrating the distribution 
of data values of the test image Lenna before wavelet 
10 transformation. 

Figure 3 6 is a block diagram illustrating a video 
encoder and a video decoder in accordance with one 
embodiment of the present invention. 

Figure 37 is a diagram illustrating modes of the 
15 video encoder and video decoder of Figure 36 and the 
corresponding token values. 

Figure 38 is a diagram illustrating how various flags 
combine to generate a new mode when the inherited mode is 
send in accordance with one enJoodiment of the present 
20 invention. 

Figures 39-4 0 are diagrams of a black box on a white 
background illustrating motion. 

Figures 41-43 are one-dimensional tree structures 
corresponding to the motion of an edge illustrated in 
25 Figures 39-40. 

Figure 4 4 is a diagram illustrating variable-length 
tokens in accordance with one embodiment of the present 
invention. 

DETAILED DgSCPIPTIOW OF THE PREFERRED EMBQDTWPMTff; 

30 QUASI -PERFECT RECONSTRUCTION FILTERS 

The wavelet transform was introduced by Jean Morlet 
in 1984 to overcome problems encountered in analyzing 
geological signals. See "Cycle-octave and Related 
Transforms In Seismic Signal Analysis", Goupillaud, 

35 Grossman and Morlet, Geoexploration, vol. 23, 1984. Since 
then, the wavelet transform has been a new and exciting 
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method of analyzing signals and has already been applied 
to a wide range of tasks such as guantuun mechanics and 
signal processing: The wavelet transform has a number of 
advantages over more traditional Fourier techniques 
5 principally used today in the analysis of signals. The 
wavelet transform and the high and low pass four 
coefficient quasi-perfect reconstruction filters of the 
present invention are therefore described by relating thea 
to the windowed Fourier transform. 

10 The windowed Fourier transform is the principle 

transform used today to analyze the spectral components of 
a signal. The Fourier transform decomposes a signal under 
analysis into a set of complex sinusoidal basis functions. 
The resulting Fourier series can be interpreted as the 

15 frequency spectra of the signal. The continuous Fourier 
transform is defined as follows: 



VThere f(t) is the time domain signal under analysis and 
F(u) is the Fourier transform of the signal under 

2 0 analysis. Although many applications require an estimate 
of the spectral content of an input signal, the above 
formula is impractical for most systems. In order to cal- 
culate the Fourier transform, the input signal f (t) must 
be defined for all values of time t, whereas in most 

25 practical systems, f(t) is only defined over a finite 
range of time. 

Several methods have therefore been devised to 
transform the finite input signal into an infinite signal 
so that the Fourier transform can be applied. The 

30 windowed Fourier transform is one such solution. The 
windowed Fourier transform is defined as follows: 



(equ. 1) 




(equ. 2) 



Where f(t) is the time domain signal under analysis, 
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T,u{u,7) is the windowed Fourier transform of the tine 
domain signal under analysis, and w(t) is the windowing 
function. The windowing function is usually chosen to be 
zero outside an interval of finite length. Alternatively, 
5 as the spectral content of the input f(t) varies with 
time, the input signal can be examined by performing the 
transform at time t using a more local window function. 
In either case, the output transform is the convolution of 
the window function and the signal under analysis so that 

10 the spectra of the window itself is present in the 

transform results. Conseq^jently , the windowing function 
is chosen to minimize this effect. Looking at this 
technique from another viewpoint, the basis functions of a 
windowed Fourier transform are not complex sinusoids but 

15 rather are windowed complex sinusoids. Dennis Gabor used 
a real Gaussian function in conjunction with sinusoids of 
varying frequencies to produce a complete set of basis 
functions (known as Gabor functions) with which to analyze 
a signal. For a locality given by the effective width of 

20 the Gaussian function, the sinusoidal frequency is varied 
such that the entire spectrum is covered. 

The wavelet transform decomposes a signal into a set 
of basis functions that can be nearly local in both 
frequency and time. This is achieved by translating and 

25 dilating a function *(t) that has spatial and spectral 
locality to form a set of basis functions: 

v^*(a(C-u)) (equ. 3) 

wherein s and u are real numbers and are the variables of 
the transform. The function *(t) is called the wavelet. 
3 0 The continuous wavelet transform of a signal under 

analysis is defined as follows: 

w{s.v)'Vsj^ lslc-u))f{c)de (equ. 4) 

Where f (t) is the time domain signal under analysis. 
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W(s,u) is its wavelet transform, is the wavelet, s is 
the positive dilation factor and u is the scaled 
translation distance. The spatial and spectral locality 
of the wavelet transform is dependent on the character- 
5 istics of the wavelet. 

Because the signal under analysis in the compression 
of digitally sampled images has finite length, the 
discrete counterpart of the continuous wavelet transform 
is used. The wavelet transform performs a multiresolution 

10 decomposition based on a sequence of resolutions often 
referred to as "octaves". The frequencies of consecutive 
octaves vary uniformly on a logarithmic frequency scale. 
This logarithmic scale can be selected so that consecutive 
octaves differ by a factor of two in frequency. The basis 

15 functions are: 

for (j,n)€Z^ (egu. 5) 

where Z is the set of all integers, z' ■ {(j,n) : j,n e Z}, 
and ^^lUx) = yfl^ ^ (2^ X) . 

In a sampled system, a resolution r signifies that 

20 the signal under analysis has been sampled at r samples 
per unit length. A multiresolution analysis studies an 
input signal at a number of resolutions, which in the case 
of the present invention is the sequence r = 2' where 
j c Z. The difference in frequency between consecutive 

25 octaves therefore varies by a factor of two. 

Stephane Mallat formalized the relationship between 
wavelet transforms and multiresolution analysis by first 
defining a multiresolution space sequence {Vj}jez, where Vj 
is the set of all possible approximated signals at 

3 0 resolution 2'. He then showed that an orthonormal basis 
for Vj can be constructed by (x-2-'n) },g2. ^(x) is called 
the scaling function where for any jeZ, 4>^ (x) «=yF<|) (2-'x) . 
He then showed that a signal f(x) can be approximated at a 
resolution 2' by the set of samples: 
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S,. = {v^<x',4)^),„ (equ. 6) 

where < f , g> ix) gix) dx. where f. gtlUR) . 
the set cf square integrable functions on R. This is 
equivalent to convolving the signal f(x) with the scaling 
5 function (p'{-x) at a sampling rate of 2'. However, this 
representation is highly redundant because Vj C Vj^,,j€Z. 
It would be more efficient to generate a sequence of 
multiresolution detail signals Oj which represents the 
difference inforniation between successive resolutions 
10 Oj©Vj = Vj^, where Oj is orthogonal to V^. Mallat proved that 
there exists a function 'i'(x) called the wavelet where: 

(equ. 7) 

such that {*'(x-2"'n) is an orthononnal basis of Oj and 
{^'(x-2^n)}, (j,n)€ZS is an orthonormal basis of L'(R). 
IS The detail signal at resolution 2^*' is represented by the 
sat of data values: 

Nj^i^/2^<f,^i>]^^2 (equ. 8) 

which is equivalent to convolving the signal f (x) with the 
wavelet i'(-x) at a sampling rate of 2^. 

20 Hence, the original signal f (x) can be completely 

represented by the sets of data values (S,, (Nj) J< j<-i) , 
where J<0 gives the number of octaves. This 
representation in the form of data values is known as the 
discrete wavelet decomposition. The S; notation used by 

25 Mallat refers to recursively low pass filter values of the 
original signal. S, corresponds to the original data 
values D. S., corresponds to the H data values from the 
low pass filter. M., corresponds to the G data values from 
the high pass filter. S., corresponds to the next low pass 

30 filtered values from the previous H sub-band. N.^ 

corresponds to the next high pass filtered values from the 
previous H sub-band. 

If the sampling patterns of the discrete windowed 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/00677 



- 18 - 

Fourier transform and the discrete wavelet transfonn are 
ccnpared while maintaining the spatial locality of the 
highest frequency sample for both transforms, then the 
efficiency of the discrete wavelet decomposition is 
5 revealed. The window Fourier transfonn produces a linear 
sampling grid, each data value being a constant spatial 
distance or a constant frequency away from its neighbor. 
The result is a heavy over-sampling of the lower 
frequencies. The wavelet transform, in contrast, samples 

10 each of its octave wide frequency bands at the minimum 

rate such that no redundant information is introduced into 
the discrete wavelet decomposition. The wavelet transform 
is able to achieve highly local spatial sampling at high 
frequencies by the use of octave wide frequency bands. At 

15 low frequencies, spectral locality takes precedence over 
spatial locality. 

Figure 7 illustrates the spatial and spectral 
locality of a sequence of sampled data values. The box 
surrounding a data value represents the spatial and 

20 spectral locality of the data value. The regions of 
Figure 7 are presented for explanation purposes. In 
reality there is some overlap and aliasing between 
adjacent data values, the characteristics of which are 
determined by the particular wavelet function used. 

25 Mallat showed the wavelet transfonn can be computed 

with a pyramid technique, where only two filters are used. 
Using this technique, Sj and Nj are calculated from Sj^„ Sj 
being used as the input for the next octave of 
decomposition. A low pass filter H: 

30 ti(n) - -^«t>iS4>n> (equ. 9) 

Mallat showed that Sj can be calculated by convolving from 
S*, with H and keeping every other output (i.e. sub- 
sampling by a factor of 2) . 

A method for calculating Nj from Sj+, can also be 
35 derived. This method involves convolving Sj*, with a high 
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pass filter G and sub-sampling by a factor of 2. The high 
pass filter G is defined by the following coefficients; 

g(n) (-1)'-" h(l-n) (equ. lO) 

The relationship between the H and G filters results 
5 in a large saving when the filters are implemented in 
hardware. 

Figures 8 and 9 illustrate that these two filters H 
and G form a complenientary pair that split an input signal 
into two half band output signals. Both the high and the 
10 low pass outputs can be sub-sampled by a factor of two 
without corrupting the high frequency information because 
any aliasing introduced by the sub-sampling will be 
corrected in the reconstruction. There are the same 
number of filtered data values as there are original image 
15 data values. 

The particular wavelet which is best in analyzing a 
signal under analysis is heavily dependent on the 
characteristics of the signal under analysis. The closer 
the wavelet resembles the features of the signal, the more 
20 efficient the wavelet representation of the signal will 
be. In addition, reconstruction errors introduced by 
quantization resemble the wavelet. Typically, the amount 
of aliasing varies with spatial support (the number of 
coefficients of the wavelet filters) . Long wavelets can 
25 be constructed such that aliasing between adjacent octave 
bands is minimized. However, the spatial equivalent of 
aliasing, overlap, increases with filter length. 
Conversely, short wavelets have little or no overlap 
spatially but exhibit large amounts of aliasing in the 
30 frequency domain. To properly determine the suitability 
of a wavelet for a particular application, these factors 
of size and shape must be considered. 

To apply the wavelet transform to image processing, 
the present invention employs a particular wavelet called 
35 the four coefficient Daubechies wavelet. Because the four 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/CB94/00677 



- 20 - 

coefficient Daubechies wavelet has only four coefficients, 
it is very short. This is well-suited for analyzing 
important image features such as object edges. Edges by 
definition are spatially local discontinuities. Edges 
5 often consist of a wide spectral range which, when 
filtered through a high pass filter, give rise to 
relatively larger filtered outputs only when the analysis 
filter coincides with the edge. When the analysis filter 
does not coincide with the edge, relatively smaller 

10 filtered outputs are output by the filter. The shorter 
the analysis filter used, the more finely the spatial 
position of the edge is reisolved. Longer filters produce 
more of the relatively larger data values to represent an 
edge. The shortness of the filter also makes the 

15 transform calculation relatively inexpensive to implement 
compared with that of longer filters or image 
transformations such as the Fourier or discrote cosine 
transforms. The four coefficient Daubechies wavelet was 
selected for use only after a careful analysis of both its 

2 0 spatial and aliasing characteristics. Longer wavelets 
such as the six coefficient Daubechies wavelet could, 
however, also be used if a more complex implementation 
were acceptable. Short filters such as the two 
coefficients Haar wavelet could also be used if the 

25 attendant high levels of noise were acceptable. 

The true coefficients of the four coefficient 
Daubechies wavelet are: 

The low pass four coefficient Daubechies digital 
30 filter is given by: 

h|^| = aD(x-l) + bD(x) + CD(X+1) - dD(x+2) (equ. 12) 

The high pass four coefficient Daubechies digital 
filter is given by: 
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G|-|j = dD(x-l) + cD(x) - bD(x+l) + aD(x+2) (equ. 13) 

In equations 12 and 13, D(x-l) , D(x), D(x+1) and D(x+2) 
are four consecutive data values. h|-^J and G|-^j are true 
perfect reconstruction filters, i.e. the inverse transform 
5 perfectly reconstructs the original data. For example, 
when the filters operate on data values D(l), D(2) , D(3) 
and D(4), outputs H(l) and G(l) are generated. Index x in 
this case would be 2. Due to the presence of the as 
the index for the filters H and G, the values of x can 

10 only be even integers. 

To simplify the computational complexity involved in 
performing the transformation on real data, the 
coefficients of the four coefficient Daubechies filter 
which are non-rational numbers are converted into rational 

15 numbers which can be efficiently implemented in software 
or hardware. Floating point coefficients are not used 
because performing floating point arithmetic is time 
consuming and expensive when implemented in software or 
hardware. 

20 To convert the four Daubechies coefficients for 

implementation, three relationships of the coefficients a, 
b, c and d are important. In order for the H filter to 
have unity gain, the following equation must hold: 

a+b+c-d-1 (equ. 14) 

25 In order for the G filter to reject all zero frequency 
components in the input data values, the following 
equation roust hold: 

a-b + c + d = 0 (equ. 15) 

In order for the resulting H and G filters to be able to 
3 0 generate a decomposition which is perfectly reconstruct- 
ible into the original image data the following equation 
must hold: 
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True four coefficient Daubechies filters satisfy the above 
three equations 14, 15, and 16. However, when the 
coefficients of the true low and high pass four 
5 coefficient Daubechies filters are converted for 

implementation, at least one of the three relationships 
must be broken. In the preferred embodiment, unity gain 
and the rejection of all zero frequency components are 
maintained. It is the third relationship of equation 16 

10 that is compromised. Perfect reconstruction is 

compromised because the process of compressing image data 
itself inherently introduces some noise due to the tree 
coding and quantization of the present invention. The 
reconstructed data values therefore necessarily involve 

15 noise when a real-world image is compressed and then 

reconstructed. We define filters which satisfy equations 
14, and 15 and approximately satisfy equation 16, 
quasi-perfect reconstruction filters. 

Table 2 illustrates a process of converting the 

20 coefficients a, b, c and d for implementation. 

a - - .3415(32) - 10.92 = ^ 

8 32 

b = 1^ » .5915 (32) - 18.92 = ^ 
8 32 

C = = .1585 (32) = 5.072 » -L 

8 32 

25 Cf » - .0915(32) = 2.928 - — 

8 32 

Table 2 

The true four coefficient Daubechies filter coefficients 
are listed in the left hand column of Table 2. In the 
next column to the right, the true coefficients are shown 
30 rounded to four places beyond the decimal point. The 
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rounded coefficients are scaled by a factor of 32 to 
achieve the values in the next column to the right. From 
each value in the third column, an integer value is 
selected. Which integers are selected has a dramatic 
5 effect on the complexity of the software or hardware which 
compresses the image data. The selected integers are 
divided by 32 so that the scaling by 32 shown in the 
second column does not change the values of the resulting 
converted coefficients. 

10 In selecting the integers for the fourth column, the 

relationship of the three equations 14, 15 and 16 are 
observed. In the case of a - 11/32, b = 19/32, c = 5/32 
and d = 3/32, the relationships a+b+c-d=l and a-b+c+d=0 
both are maintained. Because the converted coefficients 

15 in the rightmost column of Table 2 are quite close to the 
true coefficient values in the leftmost column, the 
resulting four coefficient filters based on coefficients 
a, b, c and d allow near perfect reconstruction. On a 
typical 640 by 480 image, the error between the original 

2 0 and reconstructed data values after forward and then 

inverse transformation has been experimentally verified to 
exceed 50 dB. 

The resulting high pass four coefficient quasi- 
Daubechies filter is: 

25 H(|) = ^D(X-l) + -i|D(x) + -^DCx+l) - Ad(x+2) (equ. 17) 

The resulting low pass four coefficient quasi-Daubechies 
filter is: 

G{f) •= ■^D(x-l) + -^DCx) - ifD(x+l) + iiD(x+2) (equ. 18) 

Because the high and low pass four coefficient quasi- 

3 0 Daubechies filters satisfy equations 14 and 15 and 

approximately satisfy equation 16, the high and low pass 
four coefficient quasi-Daubechies filters are quasi- 
perfect reconstruction filters. 
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Note that the particular converted coefficients of 
the ouasi-Daubechies filters of equations 17 and 18 result 
in significant computational simplicity when 
inplenentation is either software and/or hardware. 
5 Multiplications and divisions by factors of two such as 
multiplications and divisions by 32 are relatively simple 
to perform. In either hardware or software, a 
multiplication by 2 or a division by 2 can be realized by 
a shift. Because the data values being operated on by the 
10 digital filter already exist in storage when the filter is 
implemented in a typical system, the shifting of this data 
after the data has been read from storage requires little 
additional computational overhead. Similarly, changing 
the sign of a quantity involves little additional 
15 overhead. In contrast, multiplication and division by 
numbers that are not a power of 2 require significant 
overhead to implement in both software and hardware. The 
selection of the coefficients in equations 17 and 18 
allows H(x) and G{x) to be calculated with only additions 
20 and shifts. In other words, all multiplications and 

divisions are performed without multiplying or dividing by 
a number which is not a power of 2 . Due to the digital 
filter sequencing through the data values, pipelining 
techniques can also be employed to reduce the number of 
25 adds further by using the sums or differences computed 
when the filters were operating on prior data values. 

Moreover, the magnitudes of the inverse transform 
filter coefficients are the same as those of the transform 
filter itself. As described further below, only the order 
30 and signs of the coefficients are changed. This reduces 
the effective number of multiplications which must be 
performed by a factor of two when the same hardware or 
software implementation is to be used for both the forward 
and inverse transform. The fact that the signal being 
35 analyzed is being sub-sampled reduces the number of 
additions by a factor of two because summations are 
required only on the reading of every other sample. The 
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effective number of filters is therefore only one to both 
transform the data into the decomposition and to inverse 
transform the decomposition back into the image data. 

IMAGE COMPRESSION AND DECOMPRESSION USING THE 
5 QUASI-PERFECT RECONSTRUCTION TRANSFORM 

Color images can be decomposed by treating each Red- 
Green-Blue (or more usually each Luminance-Chroninance- 
Chrominance channel) as a separate image. In the case of 
Lmninance-Chrominance-Chrominance (YUV or YIQ) images the 
10 chrominance components may already have been sub-sampled. 
It may be desirable therefore, to transform the 
chrominance channels through a different number of octaves 
than the luminance channel. The eye is less sensitive to 
chrominance at high spatial frequency and therefore these 
15 channels can be sub-sampled without loss of perceived 
quality in the output image. Typically these chrominance 
channels are sub-sampled by a factor of two in each 
dimension so that they together take only 50 percent of 
the bandwidth of the luminance channel. When implementing 
20 an image compression technique, the chrominance channels 
are usually treated the same way as the luminance channel. 
The compression technique is applied to the three channels 
independently. This approach is reasonable except in the 
special cases where very high compression ratios and very 
25 high quality output are required. To squeeze the last 
remaining bits from a compression technique or to achieve 
more exacting quality criteria, knowledge of hov the 
chrominance rather than luminance values are perceived by 
the human visual system can be applied to improve the 
3 0 performance of the compression technique by better 
matching it with the human visual system. 

Figure 10 is an illustration of a two dimensional 
matrix of data values. There are rows of data values 
extending in the horizontal dimension and there are 
35 columns of data values extending in the vertical 

dimension. Each of the data values may, for example, be 
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an 8-bit binary number of image pixel information such as 
the luminance value of a pixel. The data values of Figure 
10 represent an image of a black box 100 on a white 
background lOl. 
5 To transform the data values of the image of Figure 

10 in accordance with one aspect of the present invention, 
a high pass four coefficient quasi-Daubechies digital 
filter is run across the data values horizontally, row by 
row, to result in a block 102 of high pass output values G 
10 shown in Figure 11. The width of the block 102 of high 
pass output values in Figure 11 is half the width of the 
original matrix of data values in Figure 10 because the 
high pass four coefficient quasi-Daubechies digital filter 
is moved across the rows of the data values by twos. 
15 Because only one additional digital filter output is 

generated for each additional two data values processed by 
the digital filter, the data values of Fig^ire 10 are said 
to have been sub-sampled by a factor of two. 

Fig\jre 12 illustrates the sub-sampling performed by 
20 the high pass digital filter. High pass output G, is 

generated by the high pass digital filter from data values 
Dj, Dj, Dj and D«. The next high pass output generated, 
output Gj, is generated by the high pass digital filter 
from data values Dj, D4, D, and D^. The high pass digital 
25 filter therefore moves two data values to the right for 
each additional high pass output generated. 

A low pass four coefficient quasi-Daubechies digital 
filter is also run across the data values horizontally, 
row by row, to generate H block 103 of the low pass 
30 outputs shown in Figure 11. This block 103 is generated 
by sub-sampling the data values of Figure 10 in the same 
way the block 102 was generated. The H and G notation for 
the low and high pass filter outputs respectively is used 
as opposed to the Sj and Oj notation used by Mallat to 
3 5 simplify the description of the two-dimensional wavelet 
transform. 

Figure 13 illustrates the sub-sampling of the low 
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pass digital filter. Low pass output H, is generated by 
the low pass digital filter from data values D,, Dj, D3 and 
D,. The next low pass output generated, output H^, is 
generated by the low pass digital filter from data values 
5 D3, D4, Dj and D4. The low pass digital filter therefore 
moves two data values to the right for each additional low 
pass output generated. 

After the high and low pass four coefficient quasi- 
Daubechies digital filters have generated blocks 102 and 
10 103, the high and low pass four coefficient guasi- 
Daubechies digital filters are run down the columns of 
blocks 102 and 103. The values in blocks 102 and 103 are 
therefore sub-sanpled again. The high pass four 
coefficient quasi-Daubechies digital filter generates 
15 blocks 104 and 105. The low pass four coefficient quasi- 
Daubechies digital filter generates blocks 106 and 107. 
The resulting four blocks 104-107 are shown in Figure 14. 
Block 106 is the low frequency component of the original 
image data. Blocks 107, 104 and 105 comprise the high 
20 frequency component of the original image data. Block 106 
is denoted block HH. Block 107 is denoted block GH. 
Block 104 is denoted block HG. Block 105 is denoted block 
GG. 

This process of running the high and low pass four 
25 coefficient quasi-Daubechies digital filters across data 
values both horizontally and vertically to decompose data 
values into high and low frequency components is then 
repeated using the data values of the HH block 106 as 
input data values. The result is shown in Figure 15. 
3 0 Block 108 is the low frequency component and is denoted 
block HHHH. Blocks 109, 110 and 111 comprise octave 1 of 
the high frequency component and are denoted HHHG, HHGH, 
HHGG, respectively. Blocks HG, GH and GG comprise octave 
0 of the high frequency component. 
35 Although this recursive decomposition process is only 

repeated twice to produce high pass component octaves 0 
and 1 in the example illustrated in connection with 
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Figures 10-15, other numbers of recursive decomposition 
steps are possible. Recursively decomposing the original 
data values into octaves 0, 1, 2 and 3 has been found to 
result in satisfactory results for most still image data 
5 and recursively decomposing the original data into octaves 
0, 1, and 2 has been found to result in satisfactory 
results for most video image data. 

Moreover, the horizontal and subsequent vertical 
operation of the high and low pass filters can also be 
10 reversed. The horizontal and subsequent vertical sequence 
is explained in connection with this example merely for 
instructional purposes. The filters can be moved in the 
vertical direction and then in the horizontal direction. 
Alternatively, other sequences and dimensions of moving 
15 the digital filters through the data values to be 
processed is possible. 

It is also to be understood that if the original 
image data values are initially arrayed in a two 
dimensional block as shown in Figure 10, then the 
20 processing of the original image data values by the high 
and low pass filters would not necessarily result in the 
HH values being located all in an upper right hand 
quadrant as is shown in Figure 14. To the contrary^ 
depending on where the generated HH values are written, 
25 the HH data values can be spread throughout a block. The 
locations of the HH values are, however, determinable. 
The HH values are merely illustrated in Figure 14 as being 
located all in the upper lefthand quadrant for ease of 
illustration and explanation. 
30 Figure 16 is an illustration showing one possible 

twelve-by-twelve organization of original image data 
values in a two dimensional array. Figure 16 corresponds 
with Figure 10. The location in the array of each data 
value is determined by a row number and column number. A 
35 row number and column number of a data value may, for 

example, correspond with a row address and column address 
in an addressed storage medium. This addressed storage 
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medium nay, for example, be a semiconductor memory, a 
magnetic storage medium, or an optical storage medium. 
The row and column may, for example, also correspond with 
a pixel location including a location of a pixel on a 
5 cathode-ray tube or on a flat panel display. 

Figure 17 is an illustration showing the state of the 
two dimensional array after a one octave decomposition. 
The HH low frequency components are dispersed throughout 
the two dimensional array as are the HG values, the GH 

10 values, and the GG values. The subscripts attached to the 
various data values in Figure 17 denote the row and column 
location of the particular data value as represented in 
the arrangement illustrated in Figure 14. HHoo, HHo,, HH<a, 
HHflo, HHo« and HHqs, for example, are six data values which 

15 correspond with the top row of data values in HH block 106 
of Figvire 14. HHoo, HH,o, HH„, HHy,, HH*© and HHjo, for 
example, are six data values which correspond with the 
leftmost column of data values in HH block 106 of Figure 
14. 

20 When the high and the low pass forward transform 

digital filters operate on the four data values Dqi, Dg, 
and Dm of Figure 16, the output of the low pass forward 
transform digital filter is written to location row 0 
columii 2 and the output of the high pass forward transform 

25 digital filter is written to location row 0 column 3. 
Next, the high and low pass forward transform digital 
filters are moved two locations to the right to operate on 
the data values 0,5, Do«, Dos ^^id D„. The outputs of the low 
and high pass forward transform digital filters are 

30 written to locations row 0 column 4 and row 0 column 5, 
respectively. Accordingly, the outputs of the low and 
high frequency forward transform digital filters are 
output from the filters to form an interleaved sequence of 
low and high frequency component data values which 

35 overwrite the rows of data values in the two dimensional 
array. 

Similarly, when the low and high pass forward 
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transform digital filters operate on the four data values 
at locations column 0, rows 1 through 4, the output of the 
low pass forward transform digital filter is written to 
location column 0 row .2 . The output of the high pass 
5 forward transform digital filter is written to location 
column 0 row 3. Nert the low and high pass forward 
transform digital filters are moved two locations downward 
to operate on the data values at locations column 0, rows 
3 through 6. The outputs of the low and high pass forward 

10 transform digital filters are written to locations column 
0 row 4 and column 0 row 5, respectively. Again, the 
outputs of the low and high pass forward transform digital 
filters are output from the filters in an interleaved 
fashion to overwrite the columns of the two dimensional 

15 array. 

Figure 18 is an illustration showing the state of th« 
two dimensional array after a second octave decomposition. 
The HHHH low frequency components corresponding which 
block 108 of Figure is as well as the octave l high 
2 0 frequency components HHGH, HHHG and HHGG are dispersed 
throughout the two dimensional array. When the HH values 
WHoi, HHfai HH<o and HHo» of Figure 17 are processed by the 
low and high pass forward transform digital filters, the 
outputs are written to locations row 0 column 4 and row c 
25 column 6, respectively. Similarly, when the values at 
locations column 0, rows 2, 4, 6 and 8 are processed by 
the low and high pass forward transform digital filters, 
the results are written to locations column 0 row 4 and 
column 0 row 6, respectively. The data values in Figure 
30 18 are referred to as transformed data values. The 
transformed data values are said to comprise the 
decomposition of the original image values. 

This method of reading data values, transforming the 
data values, and writing back the output of the filters is 
35 easily expanded to a two dimensional array of a very large 
size, only a relatively small number of locations is 
shown in the two dimensional array of Figures 10-18 for 
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ease of explanation and clarity of illustration. 

The transfornied data values are reconverted back into 
image data values substantially equal to the original 
image data by carrying out a reverse process. This 
5 reverse process is called the inverse transform. Due to 
the interleaved nature of the decomposition data in Figure 
18, the two digital filters used to perform the inverse 
transform are called interleaved inverse transform digital 
filters. Odd data values are determined by an odd 
10 interleaved inverse digital filter 0. Even data values 
are determined by the even interleaved inverse transform 
digital filter E. 

The odd and even interleaved inverse digital filters 
can be determined from the low and high pass forward 
15 transform digital filters used in the forward transform 
because the coefficients of the odd interleaved inverse 
transform digital filters are related to the coefficients 
of the low and high pass forward transform filters. To 
determine the coefficients of the odd and even interleaved 
20 inverse transform digital filters, the coefficients of the 
low and high pass forward transform digital filters are 
reversed. Where the first, second, third and fouarth 
coefficients of the low pass forward transform digital 
filter H of equation 17 are denoted a, b, c and -d, the 
25 first, second, third and fourth coefficients of a reversed 
filter H* are denoted -d, c, b and a. Similarly, where 
the first, second, third and fourth coefficients of the 
high pass forward transform digital filter G of equation 
18 arc denoted d, c, -b and a, the first, second, third 
3 0 and fourth coefficients of a reverse filter G* are denoted 
a, -b, c and d. 

The first through the fourth coefficients of the even 
interleaved inverse transform digital filter E are the 
first coefficient of H* , the first coefficient of G*, the 
35 third coefficient of H*, and the third coefficient of G*. 
The coefficients of the even interleaved inverse transform 
digital filter E therefore are -d, a, b and c. In the 
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case of the low and high pass four coefficient guasi- 
Daubechies filters used in the transform where a=^, b=il, 
c=± and d=^, the even interleaved inverse transform 
digital filter is: 



-^H(x-l) + liG(x-l) + 1|H(X) * ^G(x) (equ. 19) 



where H(x-i), G(x-i) , H(x) and G(x) are transformed data 
values of a decomposition to be inverse transformed. 

The first through the fourth coefficients of the odd 
interleaved inverse transform digital filter O are the 

10 second coefficient of H*, the second coefficient of G*, 
the fourth coefficient of H*, and the fourth coefficient 
of G*. The coefficients of the odd interleaved inverse 
transform digital filter 0 therefore are c, -b, a and d. 
In the case of the low and high pass four coefficient 

15 guasi-Daubechies filters used in the transform where a=ji, 
^il' ^'TS the odd interleaved inverse transfo^ 

digital filter is: 

D{2x'l) 

2 - ^H(x-l) - |lG(x-l) + |iH(X) + ^G(X) (equ. 20) 

where H(x-l), G(x-i), H(x) and G(x) are data values of a 
20 decomposition to be inverse transformed. 

To inverse transform the transformed data values of 
Figure 18 into the data values of Figure 17, the HHHG, 
HHGG, HHGH and data values are inverse transformed with 
the HHHH data values to create the HH data values of 
25 Figure 17. This process corresponds with the inverse 
transformation of HHHG block 109, HHGH block 110, HHGG 
block 111, and HHHH block 108 of Figure 15 back into the 
HH data values of block 106 of Figure 14. The HG, GH and 
GG data values of Figure 18 are therefore not processed by 
30 the odd and even interleaved inverse transform digital 
filters in this step oif the inverse transform. 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/0M77 



In Figure IE, the odd interleaved inverse transform 
digital filter processes the values in locations coluan 0, 
rows 0, 2, 4 and 6 to generate the odd data value at 
location column 0 row 2 . The even interleaved inverse 
5 transform digital filter data also processes the values in 
the same locations to generate the even data value at 
location column 0 row 4 . The odd and even interleaved 
inverse transform digital filters then process the values 
in locations column 0, rows 4, 6, 8 and A to generate the 
10 values at locations column 0 row 6 and column 0 row 8, 
respectively. Each of the six columns 0, 2, 6, 4, s/and 
A of the values of Figure 18 are processed by the'odd and 
even interleaved inverse transform digital filters in 
accordance with this process. 
15 The various locations are then processed again by the 

odd and even interleaved Inverse transform digital 
filters, this time in the horixontal direction. The odd 
and even interleaved inverse transform digital filters 
process the values at locations row 0 columns 0, 2, 4 and 
20 6 to generate the values at locations row 0 column 2 and 
row 0 column 4, respectively. The odd and even 
interleaved inverse transform digital digital filters 
process the values at locations row 0 columns 4, 6, 8 and 
A to generate the values at locations row o column 6 and 
25 row 0 column 8, respectively. Each of the six rows 0, 2, 
4 and 6 and of values arc processed by the even and odd 
interleaved inverse transform digital filters in 
accordance with this process. The result is the 
reconstruction shown in Figure 17. 
3 0 The even and odd interleaved inverse transform 

digital filters then process the values shown in Figure 17 
into the data values shown in Figure 16. This inverse 
transformation corresponds with the transformation of the 
HH block 106/ the HG bock 104, the GH block 107 and the GG 
35 block 105 of Figure 14 into the single block of data value 
of Figure 10. The resulting reconstructed data values of 
Figure 16 are substantially equal to the original image 
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data values. 

Note, however, that in the forward transfonn of the 
data values of Figure 16 into the data values of Figure 17 
that the low and high pass four coefficient quasi- 
5 Daubechies digital filters cannot generate all the data 
values of Figure 17 due to the digital filters requiring 
data values which are not in the twelve by twelve matrix 
of data values of Figure 16. These additional data values 
are said to be beyond the "boundary" of the data values to 
10 be transformed. 

Figure 19 illustrates the high pass fovir coefficient 
quasi-Daubechies digital filter operating over the 
boundary to generate the Gq data value. In order to 
generate the Go data value in the same fashion that the 
15 other high frequency G data values are generated, the high 
pass digital filter would require data values D.,, Do, D, 
and D] as inputs. Data value D.,, however, does not exist, 
similarly. Figure 20 illustrates the low pass four 
coefficient quasi-Daubechies digital filter operating over 
20 the boundary to generate the data value. In order to 
generate the Ho data value in the same fashion that the 
other low frequency H data values are generated, the low 
pass digital filter would require data values D.,, Dq, D, 
and Dj as inputs. Data value D.,, however, does not exist. 
25 The present invention solves this boundary problem by 

using additional quasi-Daubechies digital filters to 
generate the data values adjacent the boundary that would 
otherwise require the use of data values outside the 
boundary. There is a high pass "start" quasi-Daubechies 
30 forward transform digital filter G, which is used to 
generate the first high pass output Go. There is a low 
pass "start" quasi-Daubechies forward transform digital 
filter H, which is used to generate the first low pass 
output Ho. These start quasi-Daubechies forward transform 
35 digital filters are three coefficient filters rather than 
four coefficient filters and therefore require only three 
data values in order to generate an output. This allows 
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the start quasi-Daubechies forward transform digital 
filters to operate at the boundary and to generate the 
first forward transform data values without extending over 
the boundary. 

5 Figure 21 illustrates the low and high pass start 

quasi-Daubechies forward transform digital filters 
operating at the starting boundary of image data values Dq 
through Db- The three coefficient low and high pass start 
quasi-Daubechies forward transform digital filters operate 
10 on data values Do, D, and D, to generate outputs Ho and Go, 
respectively. H,, H,, H, and H*, on the other hand, are 
generated by the low pass four coefficient quasi- 
Daubechies forward transform digital filter and G,, Gj, G, 
and G« are generated by the high pass four coefficient 
15 quasi-Daubechies forward transform digital filter. 

A similar boundary problem is encountered at the end 
of the data values such as at the end of the data values 
of a row or a column of a two-dimensional array. If the 
low and high pass four coefficient quasi-Daubechies 
20 filters G and H are used at the boxindary in the same 
fashion that they are in the middle of the data values, 
then the four coefficient quasi-Daubechies forward 
transform digital filters would have to extend over the 
end boundary to generate the last low and high pass 
2 5 outputs, respectively. 

The present invention solves this boundary problem by 
using additional quasi-Daubechies forward transfonn 
digital filters in order to generate the transformed data 
values adjacent the end boundary that would otherwise 
30 require the use of data outside the boundary. There is a 
low pass "end" quasi-Daubechies forward transform digital 
filter H, which is used to generate the last low pass 
output. There is a high pass "end** quasi-Daubechies 
forward transform digital filter G, which is used to 
35 generate the last high pass output. These two end quasi- 
Daubechies forward transform digital filters are three 
coefficient filters rather than four coefficient filters 
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and therefore require only three data values in order to 
generate an output. This allows the end guasi-Daubechies 
forward transform digital filters to operate at the 
boundary and to generate the last transform data values 
5 without extending over the boundary. 

Figure 21 illustrates two low and high pass end 
quasi-Daubechies forward transform digital filters 
operating at the end boundary of the image data. These 
three coefficient low and high pass end quasi-Daubechies 

10 forward transform digital filters operate on data values 
D,, Da and Db to generate outputs H, and G,, respectively. 
This process of using the appropriate start or end low or 
high pass filter is used in performing the transformation 
at the beginning and at the end of each row and coluam of 

15 the data values to be transformed. 

The form of the low pass start guasi-Daubechies 
forward transform digital filter H, Is determined by 
selecting a value of a hypothetical data value D., which 
would be outside the boundary and then determining the 

20 value of the four coefficient low pass guasi-Daubechies 
forward transform filter if that four coefficient forward 
transform filter were to extend beyond the boundary to the 
hypothetical data value in such a way as would be 
necessary to generate the first low pass output Ho. This 

25 hypothetical data value D., outside the boundary can be 
chosen to have one of multiple different values. In some 
embodiments, the hypothetical data value D., has a value 
equal to the data value Do at the boundary. In some 
embodiments, the hypothetical data value D., is set to zero 

3 0 regardless of the data value Do- The three coefficient low 
pass start quasi-Daubechies forward transform digital 
filter H, therefore has the form: 

Ho - Kl + bDo + cD| - dD, (equ. 21) 

where Kl is equal to the product aD.,, where Dq is the first 
35 data value at the start boundary at the start of a 
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sequence of data values, and where a, b, c and d are the 
four coefficients of the four coefficient low pass guasi- 
Daubechies forward transform digital filter. If, for 
example, hypothetical data value D., is chosen to be equal 
5 to the data value Do adjacent but within the boundary, then 
Kl=aDo where a = 11/32 and Dq is the data value adjacent 
the boundary, equation 21 then becomes: 

Ho = (a+b)Do + cDi - dD, (equ. 22) 

The form of the high pass start quasi-Daubechies 
10 forward transform digital filter G, is determined by the 
same process using the same hypothetical data value D.,. 
The high pass start quasi-Daubachies forward transform 
digital filter G, therefore has the form: 

Go - K2 + cDo - bDi + aD, (equ. 23) 

15 where K2 is equal to the product dD.,, where Do is the first 
data value at the boundary at the start of a secpjence of 
data values, and where a, b, c and d are the four 
coefficients of the four coefficient high pass quasi- 
Daubechies forward transform digital filter. If 

20 hypothetical data value D., is chosen to be equal to Do, 
then equation 23 becomes: 

Go = (d + c)Do - bD, + aDj (equ. 24) 

The form of the low pass end quasi-Daubechies forward 
transfoiTD digital filter H, is determined in a similar way 

25 to the way the low pass start quasi-Daubechies forward 

transform digital filter is determined. A value of a data 
value Dc is selected which would be outside the boundary. 
The value of the four coefficient low pass quasi- 
Daubechies forward transform digital filter is then 

30 determined as if that four coefficient filter were to 
extend beyond the boundary to data value Dc in such a way 
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as to generate the last low pass output Hj. Th« three 
coefficient low pass end quasi-Daubechies forward 
transform digital filter therefore has the form: 

H5 = aD, + bD^ + cDb - K3 (egu. 25 

5 where K3 is equal to the product dDc, where is the last 
data value of a sequence of data values to be transformed, 
and where a, b, c and d are the four coefficients of the 
four coefficient low pass quasi-Daubechies filter. Dj is 
the last data value in the particular sequence of data 
10 values of this example and is adjacent the end boundary. 
In the case where the hypothetical data value D, is chosen 
to be equal to the data value Dj adjacent but within the 
end boundary, then K3=dDB and equation 25 becomes: 

H, = aD, + bD^ + Cc-d)DB (equ. 26) 

15 The form of the high pass end quasi-Daubechies 

forward transform digital filter G, is determined by the 
same process using the same data value Dc- The three 
coefficient high pass end quasi-Daubechies forward 
transform digital filter therefore has the form: 

20 G, = dD, + cD,^ - bDs + K4 (equ. 27) 

where K4 is equal to the product aD^, where is the last 
data value in this particular sequence of data values to 
be transformed, and where a, b, c and d are the four 
coefficients of the four coefficient high pass quasi- 
25 Daubechies forward transform digital filter. Dg is 

adjacent the end boundary. If hypothetical data value Dc 
is chosen to be equal to D,,, then equation 27 becomes: 

G, = dD, + cD;^ + (-b+a)DB (egu. 28) 

It is to be understood that the specific low and high 
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pass end quasi-Daubechies foi-ward transform digital 
filters are given above for the case of data values Do 
through Db of Figure 21 and are presented merely to 
illustrate one way in which the start and end digital 
5 filters may be determined. In the event quasi-Daubechies 
filters are not used for the low and high pass forward 
transform digital filters, the sane process of selecting a 
hypothetical data value or values outside the boundary and 
then determining the value of a filter as if the filter 

10 were to extend beyond the boundary can be used. In some 
embodiments, multiple hypothetical data values may be 
selected which would all be required by the digital 
filters operating on the inside area of the data values in 
order to produce an output at the boundary. This boundary 

15 technique is therefore extendable to various types of 
digital filters and to digital filters having numbers of 
coefficients other than four. 

As revealed by Figure 22, not only does the forward 
transformation of data values at the boundary involve a 

2 0 boundary problem, but the inverse transformation of the 

transformed data values back into original image data 
values also involves a boundary problem. In the present 
example where four coefficient quasi-Daubechies filters 
are used to forward transform non-boundary data values, 
25 the inverse transform involves an odd inverse transform 
digital filter as well as an even inverse transform 
digital filter. Each of the odd and even filters has four 
coefficients. The even and odd reconstruction filters 
alternatingly generate a sequence of inverse transformed 

3 0 data values. 

In Figure 22, the data values to be transformed are 
denoted Ho, Go ... H*, G4, H„ G,. Where the forward 
transform processes the rows first and then the columns, 
the inverse transform processes the columns first and then 
35 the rows. Figure 22 therefore shows a column of 

transferred data values being processed in a first step of 
the inverse transform. Both the forward and the inverse 
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traneforms in the described example, however, process the 
columns in a dov/nward direction and process the rows in a 
left-right direction. 

In Figure 22, the inverse transformed data values 
5 reconstructed by the inverse transform digital filters are 
denoted Dq, D,, Dj, Dj . . . Dg. The odd inverse transform 
digital filter outputs are shown on the left and the even 
inverse transform digital filter outputs are shown on the 
right. 

10 At the beginning of the sequence of data values 

Go, H,, G, ... H, and G, to be inverse transformed, the four 
coefficient odd and even inverse transform digital filters 
determine the values of reconstructed data values D, and Dj 
using values Ho, Go, H, and G,, respectively. Reconstructed 
15 data value Do, however, cannot be reconstructed from the 
four coefficient even inverse transform digital filter 
without the four coefficient even inverse transform 
digital filter extending beyond the boundary. If the four 
coefficient even inverse transform filter were to be 
20 shifted two data values upward so that it could generate 
data value Do, then the even four coefficient inverse 
transform digital filter would require two additional data 
values to be transformed, data values G., and H.,. Ho is, 
however, the first data value within the boundary and is 
25 located adjacent the boundary. 

To avoid the even four coefficient inverse transform 
digital filter extending beyond the boundary, a two 
coefficient inverse transform digital filter is used: 

Do " 4[(b-a)Ho + (c-d)Go] (equ. 29) 

3 0 in the case where Kl = aDcand K2 = dDo. Do is the first 
data value and Hq is the data value to be inverse 
transformed adjacent the start boundary. This even start 
inverse transform digital filter has the form of the four 
coefficient even inverse transform digital filter except 

3 5 that the G., data value outside the boundary is chosen to 
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be equal to Hq, and the H., data value outside the boundary 
is chosen to be equal to Gq. The even start invere 
transform digital filter therefore determines Do as a 
function of only Ho and Go rather than as a function of H.,, 
5 G.,, Ho and Gq. 

Similarly, a two coefficient odd end inverse 
transform digital filter is used to avoid the four 
coefficient odd inverse transform digital filter from 
extending beyond the end boundary at the other boundary of 
10 a sequence of data values to be inverse transformed. The 
two coefficient odd end inverse transform digital filter 
used is: 

Db - 4[(c+d)H5 - (a+b)G,] (equ. 30) 

in the case where K4 =• aD, and K3 - dDj. Db is the data 
15 value to be determined and Gj is the data valu« to be 

inverse transformed adjacent the end boundary. This odd 
end inverse transform digital filter has the form of the 
four coefficient odd inverse transform digital filter 
except that the Hj data value outside the boundary is 
20 chosen to be equal to G5 and the G« data value outside the 
boundary is chosen to be equal to H5. The odd end inverse 
transform digital filter therefore determines Og as a 
function of only H3 and G5 rather than as a function of H5, 
Gj, H« and G«. 

25 It is to be understood that the particular even start 

and odd end inverse transform digital filters used in this 
embodiment are presented for illustrative purposes only. 
Where there is a different number of data values to be 
inverse transformed in a sequence of data values, an even 

30 end inverse transform digital filter may be used at the 
boundary rather than the odd end inverse transform digital 
filter. The even end inverse transform digital filter is 
an even inverse transform digital filter modified in 
accordance with the above process to have fewer 

35 coefficients than the even inverse transform digital 
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filter operating on the inner data values. VThere filters 
other than quasi-Daubechies inverse transform digital 
filters are used, start and end inverse transform digital 
filters can be generated from the actual even and odd 
5 inverse transform digital filters used to inverse 
transform data values which are not adjacent to a 
boundary. In the inverse transform, the start inverse 
transform digital filter processes the start of the 
transformed data values at the start boundary, then the 

10 four coefficient inverse transform digital filters process 
the non-boundary transformed data values, and then the end 
inverse transform digital filter processes the end of the 
transformed data values. 

The true Daubechies filter coefficients a, b, c and d 

15 fulfil some simple relationships which show that the 
inverse transform digital filters ■ correctly reconstruct 
non-boundary original image data values. 

a+c - A, b-d = A, c+d = 1, b-a = 1 (equ. 31) 

and the second order equations: 

20 ac-bd = 0, a'+b'+c'+d' = 1 (equ. 32) 

Take two consecutive H,G pairs: 

(equ. 33) 
(equ. 34) 
(equ. 35) 
(equ. 36) 

Multiplying Equations 33 to 36 using the inverse transform 
digital filters gives: 



"(■f) aD(x-l)+bD(x)+cD(x+l)-dD(x+2) 
gJ^I = dD(x-l)+cD(x)-bD(x+l)+aD(x+2) 
h|~*iJ - aD(x+l)+bD(x+2)+cD(x+3)-dD(x+4) 
25 = dD(x+l)+cD(x+2)-bD(x+3)+aD(x+4) 
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cH(|j = acD{x-l)+bcD(x)-hc=D(x+l)-cdD(x-f2) (egu. 37) 

"^(f) " ■^^I^('«-l)-i=cD{X)+b=D(x+l)-abD(X+2) (egu. 38) 

^"(f."^) " 3''5(^+l)+ai=D(x+2)+acD(x+3)-adD{x+4) (egu. 39) 

dG(|*lj = d^D(x+l)+cdD(x+2)-bdD(x+3)+adD(x+4) (egu. 40) 

5 -dH(|| = -adD(x-l)-bdD(x)-cdD(x+l)+d^D(x+2) (egu. 41) 

acjlj = adD(x-l)+acD(x)-abD(x+l)+a^D(x+2) (egu. 42) 

'""(f*^) ' ^^D(x+l)+b'D(x+2)+bcD(x+3)-bdD(x+4) (egu. 43) 

''^(f''^ ' cdD(x+l)+c^D(x+2)-bcD(x+3)+acD(x+4) (egu. 44) 
Summing eguations 37-40 and 41-44 yields: 



(x-1) + (a^+bVc'+d*) D (x+1) + (ac 

.dH(|) * aG(|) + bH(|.l) ^ cg(|.i) » 
(ac-bd) D (X) + (a'+bW+d') D (x+2) + (ac-bd) 



(ac-bd)D(x-l) + (a2+bVc'4d»)D(x+l) + (ac-bd)D(x+3) = D(x+l)/2 

(egu. 45) 



D(x+4) = D{x+2)/2 

(egu. 46) 

Using the coefficients of the four coefficient true 
Daubechies filter, the relationships of eguations 31 and 
32 hold. Eguations 45 and 4 6 therefore show that with a 
one bit shift at the output, the original seguence of data 

2 0 values is reconstructed. 

Similarly, that the even start reconstruction filter 
of equation 29 and the odd end reconstruction filter of 
eguation 3 0 correctly reconstruct the original image data 
adjacent the boundaries is shown as follows. 

2 5 For the even start filter, with the choice of Kl = aDo 

and K2 = dDo in equations 29 and 30, we have: 
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Ho = (a+b)Do - CD, - dD, (egu. 47) 

Go - (c+d)Do - bD, + aDj (equ. 48) 



bHo = b(a+b)Do + cbD, - dbD, (equ. 49) 

5 cGo = c(c+d)D, - CbD, + acDj (equ. 50) 

aHo = a(a+b)Do + acD, - adDj (equ. 51) 

dGo = d(c+d)Do - dbD, + adOj (equ. 51') 

and hence: from equation 29: 

bHo + CGo - aHo - dGo - {b2-aW-d2)Do « ^ (equ. 52) 

4 

10 For the odd end filter, with the choice of K, - dDj 

and K4 B aOs, we have: 

H, « aD, + bO^ + (c-d)DB (equ. S3) 

G, = dD, + cD^ -1- (a-b)DB (equ. 54) 

cHj = acD, -I- bcD^ + c(c-d)DB (equ. 55) 

15 -bGj = -bdD, - bcD^ - b(a-b)D, (equ. 56) 

dH, = daO, + bdD^ + d(c-d)DB (equ. 57) 

-aG5 = -adD9 " caD^ - a(a-b)DB (equ. 58) 

and hence from equation 30: 

(c+d)Hj - (a+b)Gj - (c'-d^+b*-a^)DB = ^ (equ. 59) 

Copied from 10340491 on 04/01/2005 



wo 94/23385 PCT/GB94/00677 

- 45 - 

This reveals that the start and end boundary inverse 
transform digital filters can reconstruct the boundary 
data values of the original image when low pass and high 
pass start and end digi.tal filters are used in the forward 
5 transform. 



TREE ENCODING AND DECODING 
As described above, performing the forward quasi- 
perfect inverse transform does not reduce the number of 
data values carrying the image information. Accordingly, 
10 the decomposed data values are encoded such that not all 
of the data values need be stored or transmitted. The 
present invention takes advantage of characteristics of 
the Human Visual System to encode more visually important 
information with a relatively larger number of bits while 
IS encoding less visually important information with a 
relatively smaller niimber of bits. 

By applying the forward quasi-perfect inverse 
transform to a two-dimensional array of image data values, 
a number of sub-band images of varying dimensions and 

2 0 spectral contents is obtained. If traditional sub-band 

coding were used, then the sub-band images would be 
encoded separately without reference to each other except 
perhaps for a weighting factor for each band. This 
traditional sub-band encoding method is the most readily- 
25 recognized encoding method because only the spectral 
response is accurately localized in each band. 

In accordance with the present invention, however, a 
finite support wavelet is used in the analysis of an 
image, so that the sub-bands of the decomposition include 

3 0 spatially local information which indicate the spatial 

locations in which the frequency band occurs. Whereas 
most sub-band encoding methods use long filters in order 
to achieve superior frequency separation and maximal stop 
band rejection, the filter used in the present invention 
3 5 has compromised frequency characteristics in order to 
maintain good spatial locality. 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



- 46 - 



PCT/GB94/00677 



Images can be thought of as comprising three 
ccmponents: background intensities, edges and textures. 
The forward quasi-perfect inverse transform separates the 
background intensities (the low pass luminance and 
5 chrominance bands) from the edge and texture information 
contained in the high frequency bands. Ideally, enough 
bandwidth would be available to encode both the edges and 
the textures so that the image would reconstruct 
perfectly. The compression due to the encoding would then 
10 be entirely due to removal of redundancy within the 
picture. If, however, the compressed data is to be 
transmitted and/ or stored at low data transmission rates, 
some visual information of complex images must be lost. 
Because edges are a visually important image feature, the 
15 encoding method of the present invention locates and 

encodes information about edges or edge-like features for 
transmission or storage and places less importance on 
encoding textural infonnation. 

There are no exact definitions of what constitutes an 
20 edge and what constitutes texture. The present invention 
uses a definition of ,an edge that includes many types of. 
textures. An edge or an edge-like feature is defined as a 
spatially local phenomenon giving rise to a sharp 
discontinuity in intensity, the edge or edge-like feature 
25 having non-zero spectral components over a range of 
frequencies. Accordingly, the present invention uses a 
frequency decomposition which Incorporates spatial 
locality and which is invertlble. The wavelet transform 
realized with quasi-perfect inverse transform digital 
30 filters meets these requirements. 

Because an edge has non-zero components over a range 
of frequencies of the decomposition in the same locality, 
an edge can be located by searching through the wavelet 
decomposition for non-zero data values that represent 
35 edges. The method begins searching for edges by examining 
the low frequency sub-bands of the decomposition. These 
bands have only a small number of data values because of 
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the sufcsampling used in the wavelet transform and because 
the spatial support of each low frequency data value is 
large. After a quick search of the lowest frequency sub- 
bands, the positions of potential edges are determined. 
5 Once the locations of the edges are determined in the 
lowest frequency sub-bands, these locations can be 
examined at a higher frequency resolutions to confirm that 
the edges exist and to more accurately determine their 
spatial locations. 
10 Figure 23 illustrates an example of a one-dimensional 

binary search. There are three binary trees arranged from 
left to right in the decomposition of Figure 23 . There 
are three octaves, octaves 0, 1 and 2, of decomposed data 
values in Figure 23. The low pass component is not 
15 considered to be an octave of the decomposition because 
most of the edge information has been filtered out. 
Figures 24A-24D illustrate the forward transformation of a 
one-dimensional sequence of data values D into a sequence 
of transformed data values such as the tree structure of 
20 Figure 23. The data values of the sequence of Figure 24A 
are filtered into low and high frequency components H and 
G of Figure 24B. The low frequency component of Figxire 
24B is then filtered into low and high frequency 
components HH and HG of Figure 24C. The low frequency 
25 component HH of Figure 24C is then filtered into low and 
high frequency components HHH and HHG. The transformed 
data values of HHH block 240 of Figure 24D correspond with 
the low frequency component data values A, G and M of 
Figure 23. The transformed data values of HHG block 241 
30 of Figure 24D correspond with the octave 2 data values B, 
H and N of Figure 23. The transformed data values of HG 
block 242 of Figure 240 correspond with the octave l data 
values of Figure 23. Similarly, the transformed data 
values of G block 243 correspond with the octave 0 data 
35 values of Figure 23. Although only three trees are shown 
in Figure 23, the number of HHH data values in block 240 
can be large and the size of the tree structure of Figure 
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23 can extend in the horizontal dimension in a 
corresponding manner. 

The encoding of a one dimensional wavelet 
decomposition such as the decomposition of Figure 23 is 
5 performed in similar fashion to a binary tree search. The 
spatial support of a given data value in a given frequency 
band is the same as two data values in the octave above it 
in frequency. Thus the wavelet decomposition is 
visualized as an array of binary trees such as is 
10 illustrated in Figure 23, each tree representing a spatial 
locality. The greater the number of transform octaves, 
the higher the <:rees extend upward and the fewer their 
number . 

AS illustrated in Figure 23, each of the data values 
15 of the decomposition represents a feature which is either 
"interesting" to the human visual system, or it represents 
a feature that is "non-interesting" to the human visual 
system. A data value representing an edge of an object in 
an image or an edge-like feature is an example of an 
20 "interesting" data value. The encoding method is a depth 
first search, which starts at the trunk of a tree, ascends 
up the branches of the tree that are interesting, and 
terminates at the non-interesting branches. After all the 
branches of a tree have been ascended until a non- 
25 interesting data value is encountered or until the top of 
the branch is reached, the encoding of another tree is 
begun. Accordingly, as the encoding method follows the 
interesting data values of Figure 23 from octave 2 to 
octave 1 to octave 0, the edge is followed from low to 
30 high frequency resolution and an increasingly better 
approximation to the spatial position and shape of the 
edge is made. Conversely, if at any stage, a non- 
interesting data value is found, the search is terminated 
for data values above that non- interesting data value. 
35 The higher frequency data values of the .tree above a 
non-interesting data value are assumed to be non- 
interesting because the corresponding low frequency data 
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values did not indicate the presence of an edge at this 
location. Any interesting data values that do exist in 
the higher frequeTicy bands above a non-interesting data 
value in a low frequency band are rejected as noise. 
5 The one-dimensional tree structure of Figure 23 is 

encoded as follows. The low frequency components carry 
visually important information and are therefore always 
considered to be "interesting". The method of encoding 
therefore starts with low frequency component A. This 
10 data value is encoded. Next, the octave 2 data value B is 
tested to determine if it represents an edge or an edge- 
like feature which is "interesting" to the human visual 
system. Because data value B is interesting, a token is 
generated representing that the bits to follow will 
15 represent an encoded data value. Interesting data value B 
is then encoded. Because this tree has not yet 
terminated, the method continues upward in frequency. 
Data value C of octave l is then tested. For purpose of 
this example, data value C is considered to be interesting 
20 as are data values A, B, C, D, G, H, J, L and M as 

illustrated in Figure 23. A token is therefore generated 
indicating an encoded data value will follow. After the 
token is sent, data value C is encoded. Because this 
branch has still not terminated in a non-interesting data 
25 value, the method continues upward in frequency. Data 
value D is tested to determine whether or not it is 
interesting. Because data value D is interesting, a token 
is generated and data value D is encoded. Because octave 
0 is the highest octave in the decomposition, the encoding 
30 method tests the other branch originating from previous 
interesting data value C. Data value E however tests to 
be non-interesting. A non-interesting token is therefore 
generated. Data value E is not encoded and does not 
appear in the compressed data. With both branches 
35 originating at data value C terminated, the method 

proceeds down in frequency to test the remaining branches 
originating from the previous interesting data value B. 
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Data value F is, however, determined to be non- 
interesting. A non-interesting token is therefore 
generated and data value F is not encoded and does not 
appear in the encoded data. Because this branch has 
5 terminated, all data values higher in frequency above data 
value F are considered to be non-interesting. A decoding 
device receiving the sequence of encoded data values and 
tokens can determine from the non-interesting token that 
all corresponding higher frequency data values were 

10 considered to be non-interesting by the encoding device. 
The decoding device can therefore write the appropriate 
data values as non-interesting and write zeroes to these 
locations obviating the need for the encoding device to 
transmit each non-interesting data value above F, With 

15 the first tree encoded, the method proceeds to the next 
low frequency component, data value G. This is a low 
frequency component and therefore is always considered to 
be interesting. Data value G is therefore encoded. The 
method then proceeds to the next tree through blocks H, I, 

20 J, K and L in that order generating interesting and non- 
interesting tokens and encoding interesting data values. 
Similarly, after the second tree is terminated, low 
frequency component data value M is encoded. Data value M 
is determined to be non-interesting so a non-interesting 

25 token is sent and the encoding of the third tree is 
terminated. 

In accordance with another embodiment of the present 
invention, a two-dimensional extension of the one- 
dimensional case is used. Rather than using binary trees, 

3 0 four branch trees are used. However, to create a 

practical image encoding method there are also real world 
factors to take into account. Using a single data value 
to predict whether the remainder of the tree is zero, is 
unreliable when dealing with noisy image data. A small 

35 two-by-two block of data values is therefore used as the 
node element in the tree structure of the two-dimensional 
embodiment. A decision as to whether or not an edge is 
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present is based on four data values which is more 
reliable than a decision based on single data value. 

Figure 25 illustrates a tree structure representing a 
portion of the decomposition of Figure 18. The 
5 decomposition of Figure 18 nay extend farther to the right 
and farther in a downward direction for larger two- 
dimensional arrays of image data values. Similarly, the 
tree structure of Figure 25 may extend farther to the 
right for larger arrays of data values. Figure 25 
10 represents a decomposition only having octave 0 and 1 high 
frequency components. In the event that the decomposition 
had additional octaves of high frequency components, the 
tree structure would extend further upward. In contrast 
to the binary tree structure of Figure 23, the tree 
15 structure of Figure 25 is a four branch tree. The two-by- 
two block of four octave 1 data values HHHG is the root of 
a tree which extends upward in frequency to four HG two- 
by-two blocks. If another octave of decomposition were 
performed, another level of octave 2 high frequency two- 
20 by-two blocks would be inserted into the tree structure. 
Four KHHG octave 1 two-by-two blocks would, for example, 
have a single octave 2 HHHHHG block beneath them. The low 
frequency component would be denoted HHHHHH. 

Figure 2 6 is a pictorial representation of the 
25 decomposition of the tree structure of Figure 25. As 

explained above with respect to Figure 15, the actual data 
values of the various denoted blocks are distributed 
throughout the two-dimensional array of data values. The 
two numljers separated by a comma in each of the boxes of 
3 0 Figure 25 denote the row and column of a data value of the 
twordimensional array of Figure 18, respectively. Using 
this tree structure, it is possible to search through the 
transformed data values of Figure 18 encoding interesting 
two-by-two blocks of data values and ignoring non- 
3 5 interesting two-by-two blocks. 

To describe how the two dimensional encoding method 
uses the tree structure to search through a decomposition, 
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some useful definitions are introduced. First an image 
deccmp is defined with dimensions WIDTH by HEIGHT 
decomposed to number OCTS of octaves. A function Access 
is defined such that given some arguments, the function 
5 Access outputs the memory address of the specified data 
value in the wavelet decomposition decomp: 

address = Access (act, sub, x, y) ; 

oct is the octave of the data value sought and is an 
integer value between O (the highest octave) and OCTS-I 

10 (the number of octaves of transformation OCTS minus one) . 
sub indicates which of the HH, HG, GH or GG bands of the 
decomposition it is that the data value sought is found. 
The use of 5uJb - HE to access the low pass data values is 
only valid when the value of oct is set to that of the 

15 lowest octave. The co-ordinates x and y indicate the 

spatial location from the top left hand corner of the sub- 
band specified by oct and sub. The range of valid values 
of X and y are dependent on the octave being accessed, x 
has a range of {O. . . WIDTB/2'"*^} . y has a range of {0 . 

20 . . HEIGHT/2'^*'}. 

Given the fxinctioh Access and a wavelet 
decomposition, a two-by-two block of data values can be 
read by the function ReadBlock. 

block = i?eadBIoc/c (decomp, oct, sub, x, y) { 
25 bioc>c[0][0) = deconp I Access (oct, sub, x, y) ] ; 

bJocJt(0](l] = decoap [Access (oct, sub, x+1, y) ] ; 
blocictl][0] «= decojDp (Access (oct, sujb, x, y+I)]; 
jbJoc/c[l] [1] = decomp (Access (oct, sub, x+1, y+1) ] ; 

} 

30 The wavelet decomposition is passed to the function 

ReadBlock via the variable decomp. The two-by-two block 
of data values is returned through the variable biocJc. 
Once a two-by-two block of data values is read, a 
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decision is made as to whether the two-by-two block is 
visually "interesting" and should therefore be encoded or 
whether it is not and hence should be discarded. The 
decision is made by a function called Threshold. The 
5 arguments of the function Threshold are block, oct and 
suh. Threshold returns a boolean value True if the block 
is "interesting" and False if the block is "non- 
interesting" . 

If the block is determined to be interesting by the 
10 function threshold, it is encoded using a function called 
rncodeBloc/c. A function SendToken inserts a token before 
the encoded block to inform a decoding device which will 
later decode the compressed data whether the block to 
follow the token has been encoded (i.e. BlockNotEapty) or 
15 has not been encoded (i.e. BlockEmpty) . If a block is 
determined to be interesting, then a BlockNotEmpty token 
is sent, and the block is encoded; next the tree structure 
above the encoded block is ascended to better determine 
the location of the edge. The tree encoding procedure 
20 SendTree is therefore defined recursively as follows; 

SendTree (deeomp, oct, suh, x, y, Q) { 

block * ReadBlock {decomp, oct, sub, x, y) ; 
If Threshold {block, oct, sub, 0) { 
SendToken {BlockNotEmpty) ; 
25 EncodeSlock (block, oct, sub, Q) ; 

If (oct >0) { 

SendTree {decomp, oct~l, sub, 2*x, 2*y, Q) j 
SendTree {decomp, oct-1, sub, 2*{x+l), 2*y, Q) ; 
SendTree {decomp, oct-1, sub, 2*x, 2*(y+l), Q) ; 
30 SendTree {decomp, oct-1, sub, 2*(x+l), 2*(y+l), Q) ; 

> 

> else SendToken (BlockEmpty) ; 

) 

The procedure SendTree is only used to encode high- 
3 5 pass component data values. In procedure SendTree 
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{decomp, oct, sub, x, y, Q] , if the two-by-two block 
accessed by ReadBlock is determined to pass the threshold 
test, then SendTree [decomp, oct-1, sub 2*X, 2*y, Q) is 
used to test one of the next higher two-by-two blocks in 
5 the decomposition tree. 

The low-pass data values are not considered to form 
part of the tree structure. The low-pass data values are 
encoded using another procedure SendLPF. In addition, the 
low-pass values are encoded using a different technique 
10 than that used in EncodeBlock , so a new procedure 
EncodeBlockLPF is required. 

SendLPF (decomp, x, y, Q) { 

block = Readblock (decomp, OCTS'l, HH, x, y) ; 
EncodeBlockLPF (block, OCTS-1 , Q) ; 

15 } 

Accordingly, to encode the entire image, SendLPF is 
applied to all the block locations within the low pass 
band and SendTree is applied to the all the block 
locations in the HG, GH and GG bands, within the lowest 
20 octave. A procedure SendDecomp is therefore defined that 
encodes the entire image decomposition: 

SendDecomp (decomp, Q) { 

For (y-0; y<HEJGHT/2^; y=y+2) 
For (x=0; x<WIDTH/2'^; x=x+2) { 
25 SendLPF (decomp, x, y, Q) ; 

SendTree (decomp, OCTS-1, HG, x, y, Q) ; 
SendTree (decomp, OCTS~l, GH, x, y, Q) ; 
SendTree (decomp, 0CTS~1, GG, x, y, Q) ; 

} 

30 } 

Accordingly, the above functions define a method for 
encoding wavelet decomposed images. In terms of speed of 
encoding for real-world images, many of the trees are 
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terminated within the initial octaves so much of the 
decomposition is not examined. Due to this termination of 
many trees in the initial octaves, many data values need 
not be encoded which results in reducing the memory' 
5 bandwidth and block processing required to implement the 
compression/decompression method. Provided the functions • 
Threshold, EncodeBlockLPF and Access require only simple 
calculations, the decomposed data values are rapidly 
encoded. 

10 To implement the function Access, a table containing 

all the addresses of the data values of the two- 
dimensional tree decomposition may be accessed using the 
variables x, y, sub and act. For a small image having a 
small number of data values, this table lookup approach is 

15 reasonable. For images having, for example, approximately 
80 different values ot x, 60 different values of y, four 
different values of sub, and 3 or 4 values for oct, this 
table would contain approximately 150,000 lo-bit 
locations. A less memory intensive way of determining the 

20 same X and Y addresses from the same variables is 
desirable. 

In accordance with one embodiment of the present 
invention, a function is used to determine the X and Y 
addresses from the variables x, y, sub and oct. Address 
25 X, for example, may be determined as follows: 

X - ((jf « 1) + {sub » 1)) << oct 

where « denotes one shift to the right of value x and 
where » denotes one shift to the left. 

Address Y, for example, may be determined as follows: 

30 y - ((y << 1) + (1 S sub)) « oct 

where & denotes a bit-wise AND function. 

In a high performance system, the function Access may 
be implemented according to the following method. The 
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recursive function call and the table lookup nethods 
described above are often too slow to implement in real 
time software or in hardware. Figures 27 and 28 
illustrate how the tree decomposition of Figure 25 is 
5 traversed in order to generate tokens and encode two-by- 
two blocks of data values. The X and the Y in Figures 27 
and 28 denote coordinate addresses in the two-dimensional 
matrix of Figure 18. In order to traverse the tree of the 
decomposition of Figure 25, it is necessary to be able to 
10 determine the X and Y addresses of the data values 

represented in Figure 25. Figure 27 illustrates how the X 
and Y address of a two-by-two block of data values are 
determined for those two-by-two blocks of daita values 
located in octave 0 of the decomposition of Figxire 25. 
15 Similarly, Figure 2 8 illustrates how the X and Y addresses 
of the three two-by-two blocks of data values in octave l 
of the decomposition as well as the one two-by-two block 
of data values of the low pass component of the 
decomposition of Figure 25 are determined. X as well as Y 
20 are each functions of oct, TreeRoot, and sut. The values 
of subj, and sub., are determined by the :sub-band of the two- 
by-two block of data values sought. 

Figure 29 is a chart illustrating the values of sujb, 
and sub, for each sub-band of the decomposition. If, for 
25 example, a two-by-two block of data values is sought in 
the HH band, then the values of sub, and sub, are 0 and 0, 
respectively. The values rreeJ?oot, and rreeJ?ooty together 
denote the particular tree of a decomposition containing 
the particular two-by-two block of the data values sought. 
30 In Figiures 27 and 28, the rectangles represent 

digital counters. The arrows interconnecting the 
rectangles indicate a sequence of incrementing the 
counters. For example, the right most rectangle in Figure 
27, which is called counter CI, has a least significant 
35 bit represented in Figure 27 as bit CI, and a most 

significant bit represented as bit Cl^. Similarly, the 
next rectangle to the left in Figure 27 represents a 
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digital counter C2 having two bits, a least significant 
bit C2, and a mcst significant bit C2,. The structure of 
the X, Y address depends on the octave in which the two- 
by-two block of data values being sought resides. To 
5 generate the X, Y address in octave oct = 1, the counter 
CI is not included, the sub, and sujb, bits indicating the 
sub-band bits are shifted one place to the left, and the 
least significant bits are filled with zeros. The 
incrementing of the counters in Figure 28 proceeds as 
10 illustrated by the arrows. 

To determine the X and Y addresses of the four data 
values of the low pass component HHHH of Figure 25, Figure 
28 is used. Because the two-by-tvo block of data values 
being sought is a two-by-two block of the low pass 
IS component, the values of sub, and sujb, are 0, 0 as required 
by the table of Figure 29. The C2 counter of Figure 28 
increments through the four possible values of C2, and C2j 
to generate the four addresses in the two-by-two block of 
data values of the HHHH in the low pass component of 
20 Figure 25. The value of rreeJ?oot, and TrmmRoot, are zeroes 
because this is the first tree of the decomposition. For 
subsequent trees of the decomposition, TrBBRoot, and 
TreeRootj are incremented as illustrated by the arrows in 
Figure 28 so that the X and Y addresses of the other two- 
25 by-two blocks of data values in the low pass component of 
the tree decomposition can be determined. After this HHHH 
two-by-two block of data values is located, the four data 
values are encoded and the search through the tree 
structure proceeds to the two-by-two block of data values 
30 in octave 1 denoted HHHG in Figure 25. To determine the X 
and Y addresses of the four data values of this two-by-two 
block, the value of bits sub, and sub, are changed in 
accordance with Figure 29. Because this two-by-two block 
is in the HG sub-band, the values of sub^ and sub, are 0 
35 and 1, respectively. The C2 counter is then incremented 
through its four values to generate the four addresses of 
the four data values in that block. Supposing, that this 
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two-by-two block is determined to be "interesting" then an 
interesting token is sent, each of the four data values of 
the block are encoded, and the tree is then ascended to 
the two-by-two block of data values in octave 0 denoted 
5 HG#1. These four addresses are determined in accordance 
with Figure 27. Because the sub-band is sub-band HG, the 
values of the bits sub^ and suJby are 0 and i, respectively. 
Counter CI is then incremented so that the four addresses 
illustrated in the two-by-two block octave 0 HG#1 of 
10 Figure 2 5 are generated. If the two-by-tvo block is 
interesting, then the interesting token is sent and the 
four data values are encoded. If the tvo-by-two block is 
determined not to be interesting, then a non-interesting 
token is sent and the four data values are not encoded. 
15 The search through the tree structure of the decomposition 
then proceeds to octave 0 block HG#2. After the four 
addresses of the octave 0 block HG/1 are generated, the C2, 
bit of the C2 counter is incremented in accordance with 
the arrows shown in Figure 27. Accordingly, the octave 0 
20 block HG/2 is addressed when once again the CI counter 

increments through its four states. If the data values of 
this two-by-two block are determined to be "interesting", 
an interesting token is sent followed by the encoded data 
values. If the data values of the two-by-two block are 
25 determined to be non-interesting, then a non-interesting 
token is sent. After all the search of the four two-by- 
two blocks of the octave 0 HG sub-band are searched, then 
that HG tree is terminated and the search proceeds to 
determine the four addresses of the four data values of 
30 the octave 1 HHGH two-by-two block. In accordance with 
this technique, it is possible to traverse the structure 
of the decomposition and determine the addresses of any 
two-by-two block in any octave or any sub-band with 
minimum overhead. Moving between consecutive addresses or 
35 descending trees is a simple operation when compared to 
the snaking address path used by other compression methods 
such as JPEG. 
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When inplemented in software, this technique enables 
real time compression and decompression whereas other 
techniques may be. too slow. If implemented in hardware, 
this technique provides for a reduced gate count and an 
5 efficient implementation. Although this example shows one 
way of traversing the tree structure of wavelet transform 
decomposition, it is possible to traverse the tree 
structure in other ways simply by changing the control 
structure represented in Figures 27 and 28 to allow for a 
10 different traversal of the tree structure. For example, 
all of the low pass HHHH blocks can be located and encoded 
first followed by all of the HHHG tree of the 
decomposition, and then all of the HHGH trees, and then 
all of the HHGG trees. 



15 QUANTIZATION 

Each data value of each tvo-by-two block of the tree 
decomposition which is determined to be "interesting" is 
quantized and then Huffman encoded. A linear mid-step 
quantizer with double-width-0 step is used to quantize 
20 each of the data values. Figure 30 is an illustration of 
the quantization of a lO-bit twos complement data value. 
The range of the 10-bit data value to be quantized ranges 
from -512 to 511 as illustrated by the numbers above the 
horizontal line in Figure 30. This range is broken up 
25 into a plurality of steps. Figure 31 represents one such 
step of data values which extends from 128 to 256 in 
Figure 30. All incoming data values having values between 
128 and 255 inclusive are quantized by dividing the data 
value by the value gstep. Accordingly, the data value A 
30 having a value of 150 as illustrated in Figure 31 is 
divided by the qstep value 128 and results in h qlndex 
number of 1. Integer division is used to generate gxndex 
and the fractional part of the remainder is discarded. 
Once the qindex number is determined, the qindex number is 
35 Huffman encoded. An overall Q value is sent once per 
frame of compressed data values. The value qstep is 
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detennined from the overall Q value as described below. 

To inverse quantize the qindex number and the qstep 
value to determine the value of the transformed data 
values before inverse transformation, the device decoding 
5 the incoming quantized values calculates the value of 

qstep using the value of Q according to a method described 
below. Once the value of qstep in determined, qindex for 
a given data value is multiplied by qstep. 

In the example of Figure 31, qindex value 1 times 
10 qstep 128 results in an inverse quantized value of 128. 
If this inverse quantized value of 128 were used, however, 
all the data values in the step 128 through 255 would be 
inverse quantized to the value of 128 at the left end of 
the step. This would result in unacceptably large errors. 
15 On the other hand, if all the data values in the range of 
Figure 31 were inverse quantized to the mid-step value 
191, then less error would result. Accordingly, an 
inverse quantized value qvalve can be calculated from 
qindex and qstep as follows; 



2 0 qval ue ( qindex. qscep) 



qindex* qstep-^ 



2 



•l| if qindex<0 
if qindex-O 
if qindex>0 



The human visual system, however, has different 
sensitivities to quantization errors depending upon the 
particular sub-band containing the quantized data values. 
The human visual system performs complex non-linear 

25 processing. Although the way the human visual system 
relates image intensities to recognizable structures is 
not well understood, it is nevertheless important to take 
advantage of as much information about the human visual 
system as possible in order to maximize compression ratio 

30 versus picture quality. The wavelet transform 

approximates the initial image processing performed by the 
human brain. Factors such as spatial frequency response 
and Weber's Law can therefore be applied directly to the 
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wavelet transformed data values because the transformed 
data values are in a convenient representation. 

Figure 32 shows the sensitivity of the human eye to 
spatial frequency. Spatial frequency is measured in 
5 cycles c per visual angle 6. A screen is positioned at a 
distance d from an observer as illustrated in Figure 33. 
A light of sinusoidally varying luminance is projected 
onto the screen. The spatial frequency is the number of 
luminance cycles c per visual degree B at distance d. 

10 Note from Figure 32 that the sensitivity of the hunan eye 
varies with spatial frequency. Accordingly, the value of 
gstep is varied depending on the octave and sub-band of 
the data valve being quantized. The gstep at which a 
data valve is quantized is determined from the variables 

15 oct, sub and (j for that data valve as follows: 

gstep(oct,sub,0) « 0 * hvfi_factor (oct,sub) 

r-* u p.. 00 if occ=0] 

If sxjb^Gd E 32 if occ«l 
otherwise] P-" fl occ-2f 

* [O.IO if OCC»3j 
The scaling factors 1.00, 0.32, 0.16 and O.io relate to 
the spatial frequency scale of Figure 32 to take into 
20 account the frequency dependent sensitivity of the human 
eye. 

It is to be understood that scaling factors other 
than 1.00, 0.32, 0.16 and 0.10 could be used. For 
example, other scaling factors can be used where the 

25 quantizer is used to compress audio data which is received 
by the human ear rather than by the human eye. Moreover, 
note that the sub-band GG is quantized more heavily than 
the other sub-bands because the sub-band GG contains 
diagonal information which is less important to the human 

30 eye than horizontal and vertical information. This method 
can also be extended down to the level of two-by-two 
blocks of data values to further tailor the degree of 
quantization to the human visual system. The function 
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hvs_f actor which has only two parameters in the presently 
described embodiment is only one embodiment of the present 
invention. The function hvs_f actor, for example, can take 
into account other characteristics of the human visual 
5 system other than oct and sub, such as the luminance of 
the background and texture masking. 

THRESHOLDING 

For each new two-by-two block of data values in the 
tree decomposition, a decision must be made as to whether 
10 the block is "interesting" or "non-interesting". This can 
be done by the function threshold: 

threshold (block, limit) = Jimit > £ \blockiy] [x} I 

ymo jr»0 

(egu. 60) 

The sxim of the absolute values of the data values of the 
15 block block is determined as is represented by the double 

summation to the right of the less than sign and this 

value is compared to a threshold value limit. 

"Interesting" blocks are those blocks, for which the svm 

of the absolute values of the four data values exceeds the 
20 value limit, whereas "non-interesting" blocks are those 

blocks for which the sum is less than or equal to the 

value limit. 

The value limit takes into account the variable 
quantizer step size qstep which varies with octave. For 

25 example, a two-by-two block of data values could be 
determined to pass the test threshold , but after 
quantizing by qstep could result in four zero quantized 
values. For example, all data values between -128 and 127 
are quantized to have a quantized qindex of zero as is 

30 shown in Figure 30 even if some of those data values are 
determined to correspond with an "interesting" two-by-two 
block. For this reason, the value limit is calculated 
according to the equation: 
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limit = A*Bthreshold*qstep (equ. 61) 



In this equation "Bthreshold" is base threshold image 
factor. In the presently described example, this base 
threshold is equal to 1.0. The value of i.o for the base 
5 threshold Bthreshold was determined through extensive 
experimentation on test images. The factor 4 in equation 
61 is included to account for the fact that there are four 
data values in the block under consideration. In this way 
blocks are not determined to be interesting, the data 
10 values for which the quantizer will later reduce to zeros. 
This weighted threshold factor limit also reduces the 
number of operations performed in the quantizer because a 
fewer number of data values are quantized. 



HUFFMAN CODING 
15 The wavelet transform produces transformed data 

values whose statistics are vastly different from the data 
values of the original image. The transformed data values 
of the high-pass sub-bands have a probability distribution 
that is similar to an exponential or Laplacian 
20 characteristic with mean zero. 

Figure 34 shows the distribution of high pass data 
values in a four octave wavelet decomposition of the test 
image Lenna. Figure 3 5 shows the distribution of the data 
values of the test image Lenna before wavelet transforma- 
25 tion. The low-pass component data values have a flat 
distribution that approximates the distribution of 
luminance and chrominance values in the original image. 
The high and low pass data values are encoded differently 
for this reason. 
30 The low pass component data values are encoded by the 

function EncodeBlockLPF as follows: 

EncodeBlockLPF ( block, OCT-1, 0) { 

output ( bJoc;c[0] [0]/gstep( OCT-1, HH, Q)); 
Output ( bJoc;c(0] [l]/gstep( OCT-l, HH, Q)); 
35 Output ( bJocJcfl] [0]/gstep( OCT-l, HH, Q) ) ; 
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Output { block[l][l]/qstep( OCT-1, HH, Q));) 

After encoding, the low-pass data values are 
quantized and output into the compressed data stream. The 
low pass data values are not Huffman encoded. 
5 The high frequency component data values which pass 

the threshold test are quantized and Huffman encoded to 
take advantage of their Laplacian distribution. Function 
EncodeBlock performs the quantization and the Huffman 
encoding for each of the four data values of an 

10 interesting high frequency component block Mock. In the 
function EncodeElock , the variable suJb is provided so that 
when function gstep is called, different quantization 
qstep values can be used for different high frequency 
component sub-bands. The function hutlman performs a 

15 table lookup to a fixed Huffman code table such as the 
table of Table 3. The function EncodeBlock is defined as 
follows: 

EncodeBlock (block, oet, sut, Q) { 

Output(hu/fman (block[0] [C]/gstep(oct, suJb, 0) ) ) } 
20 Output (hu//ma;j (jbJockt 0] [l)/gstep(oct^ sub, 0))); 

O\itput(huffman(block[l][0]/qstep{oct, sub, 0))); 
Output (hu//nan (bJockfl] [1] /gstep(oct, sub, 0) ) ) ; 

} 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/006T7 



- 65 - 



IS 



aindex 


Huffnan code 


-38 . . . -512 


1100000011111111 


-22 . . -37 


llOOOOOOllll fl aindex 1 -22) 


-7 . . -21 


11000000 (Igxndexl -7) 


-6 


1 1000001 






-2 


110 1 


-1 


111 


0 


0 


1 


10 1 


2 


10 0 1 






6 


10000001 


7 . . 21 


10000000 (|?iAd«x| -7) 



22 . . 37 100000001111( \ tjiadmx\ -22) 



20 38 . . 511 llOOOOOOOllllllll 

Table 3 

The second bit from the left in the Huffaan code of 
Table 3 is a sign bit. The value |gijicJex|-7 is 
represented with 4 bits in the case 7 < \gindex\< 21. The 
25 value |gi;jdex|-22 is represented with 4 bits in the case 
22 <|gihdejf|< 37) . 

ENCODING OF TOKENS 
At high compression ratios the number of bits in the 
compressed data stream used by tokens may be reduced by 
30 amalgamating groups of "non-interesting" tokens. This can 
be achieved by introducing new tokens. In accordance with 
one embodiment of the present invention, two new tokens, 
OctEmpty and OctNotEmpty are used. For a high pass 
component block in a tree above octave zero, there are 
35 four branches. The additional pair of tokens indicate 
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whether all four are non-interesting, if all four are 
non-interesting, only a single OctEapty token need be 
sent. Otherwise, an OctNotlmpty token is generated before 
the four branches are encoded. The particular token 
5 scheme described above was selected more to simplify the 
hardware and software implementations than it was to 
achieve in the best compression ratio possible. Other 
methods of representing relatively long sequences of token 
bits in the compressed data stream using other tokens 
10 having a relatively fewer number of bits may be used in 
place of the tokens OctEapty and OctUotEapty to achieve 
higher compression ratios. 



VIDEO ENCODING AND DECODING 
In comparison with the coding of a still image, the 
15 successive images of a video sequence typically contain 
much redundant information. The redundancy of this 
information is used to reduce the bit rate. If a location 
in a new frame of the video contains the same or 
substantially the same information as a corresponding 
20 location in the previous old frame of video, that portion 
of the new frame need not be encoded and introduced into 
the compressed data. This results in a reduction in the 
total number of bits in the encoded bit stream. 

Figure 3 6 illustrates a video encoder 31 and a video 
25 decoder 32. A video input signal is transformed by a 

forward wavelet transform block 33, the output of which is 
written to a new frame store 34. The first frame of video 
information in the new frame store 34 is referred to as 
the new frame because no previous frame exists in the old 
30 frame store 35 for containing an old frame. A comparison 
tree encoder 36 therefore generates tokens and transformed 
data values as described above from the data values output 
from new frame store 34. The transformed data values are 
quantized by quantizer 37 into qindex levels. These 
35 qindex levels are then Huffman coded by the Huffman 

encoder 38. The resulting encoded data values are then 
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combined with the tokens in buffer 38A to form a 
decompressed data bit stream 39. 

An essential part of this method is that the old 
frame present in the video encoder 31 is exactly the same 
5 as the old frame 40 present in the video decoder 32. This 
allows the decoder 32 to be able to correctly decode the 
encoded bit stream 3 9 due to the fact that the encoded bit 
stream contains differences between new and old images and 
due to the fact that parts of the new frame are not sent 
10 due to compression. An inverse quantizer 41 is therefore 
provided in the video encoder 31 to inverse quantize the 
qindex levels and to store the old frame as sent into old 
frame store 35 for future comparison with the next frame 
of the video input signal. 
15 In the video decoder 32, the compressed data stream 

3 9 is received by a buffer 42. The tokens are separated 
from the Huffman encoded qindex levels. The Huffman 
encoded qindex levels are supplied to a Huffman decoder 
43, the output of which is supplied to an inverse 
20 quantizer 44. The output of the inverse quantizer 44 is 
written into old frame store 4 0 under the control of the 
comparison tree decoder 45. Comparison tree decoder 45 
determines what is written into the old frame store 40, 
depending in part on the tokens received from buffer 42. 
25 Once a new frame of transformed data values is present in 
old frame store 40, an inverse wavelet transform 46 
inverse transforms that frame of transformed data values 
into a corresponding video output signal. To prevent the 
inverse wavelet transform 46 from overwriting and 
30 therefore corrupting the contents of old frame store 40 
when it reconstructs data values corresponding to the 
original new frame data values, an intermediate frame 
store 47 is maintained. 

The octave one HHHG, HHGH, HHGG, and HHHH from Figure 
35 25 are read from the old frame store 40 by the inverse 
wavelet transform 46 to perform the octave 1 inverse 
transform as described above. However, the resulting 
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octave 0 HH sub-band, output from the inverse wavelet 
tranform 46 is now written to the intermediate frame store 
47, so as not to corrupt the old frame store 40. For the 
octave 0 inverse wavelet transform, the HG, GH, and GG 
5 sub-bands are read from the old frame store 40, and the HH 
sub-band is read from the intermediate frame store 47, to 
complete the inverse wavelet transform. 

When the second frame of compressed video data 3 9 is 
received by the video decoder 32, the tokens received by 
10 the comparison tree decoder 45 are related to the contents 
of the previous frame of video information contained in 
old frame store 4 0. Accordingly, the video decoder 32 can 
reconstruct the latest frame of video data using the 
contents of the frame store 40 and the data values encoded 
15 in the compressed data stream 39. This is possible 
because the compressed data stream contains all the 
information necessary for the video decoder 32 to follow 
the same traversal of the tree of the decomposition that 
the encoder used to traverse the tree in the generation of 
20 the compressed data stream. The video decoder 32 

therefore works in lock step with the video encoder 31. 
Both the encoder 31 and the decoder 32 maintain the sane 
mode at a corresponding location in the tree. When the 
encoder 31 determines a new mode, it incorporates into the 
25 compressed data stream 39 a corresponding token, which the 
video decoder 3 2 uses to assume that new mode. 

Figure 3 7 illustrates the modes of operation of one 
possible embodiment of the present invention. To explain 
the operation of the video encoder 31 and the video 
30 decoder 32, an example is provided. The initial frame of 
the video sequence is processed by the video encoder 31 in 
still mode. Still mode has three sub-nodes: STILL, 
VOID_STILL, and LPF_STILL. The low pass two-by-two blocks 
of data values of the decomposition cause the comparison 
3 5 tree encoder 3 6 of video encoder 31 to enter the LPF STILL 
sub-mode. In tliis sub-mode, the four data values of the 
two-by-two block are quantized but are not Huffman 
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encoded. Similarly, no token is generated. The 
successive lew pass component two-by-two blocks of data 
values are successively quantized and output into the 
compressed data stream 39. 
5 Next, the lowest frequency octave of one of the sub- 

bands is processed by the comparison tree encoder 36. 
This two-by-two block of data values corresponds with 
block HHHG illustrated in Figure 25. The four data values 
of this two-by-two block are tested against the threshold 
10 limit to determine if it is "interesting". If the 

two-by-two block HHHG is interesting, then a single bit 
token 1 is generated, as illustrated in Figure 37, the 
mode of the comparison tree encoder remains in STILL node, 
and the four data values of the two-by-two block HHHG are 
15 successively quantized and encoded and output into the 
compressed data stream 39. 

For the pxirposes of this example, block HHHG Is 
assumed to be interesting. The tree structure of Figure 
25 is therefore ascended to octave 0 two-by-two block 
20 HG#1. Because the comparison tree encoder 31 remains in 
the STILL mode, this block is encoded in the STILL mode. 
The four data values of block HG/l are tested to determine 
whether or not they are interesting. This sequence of 
testing the successive blocks of the tree structure is 
25 repeated as described above. 

After the traversal of the four octave 0 sub-blocks 
HG#l, HG#2, HG/3 and HG#4, the comparison tree encoder 3 6 
proceeds in the tree structure to the two-by-two block of 
data values in octave l, block HHGH. For purposes of this 
30 example, this two-by-two is non-interesting. After the 
comparison tree encoder 36 reads the four data values,, the 
result of the threshold test indicates a non-interesting 
two-by-two block. As illustrated in Figure 37, the 
encoder 31 which is in the still mode now generates a 
35 single bit token 0 and the comparison tree encoder 36 
enters the VOID_STILL sub-mode. Although no additional 
information is output into the compressed data stream 39, 
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the comparison tree encoder 36 proceeds to write O's into 
the four locations of the tvo-by-two block HHGH, as well 
as all the locations of the tvo-by-two blocks in the tree 
above the non-interesting tvo-by-two block HHGH. In the 
5 example of Figure 25, the comparison tree encoder 36 
writes O's into all the addresses of blocks HHGH, GH/1, 
GH#2, GH#3 and GH#4 . This zeroing is performed because 
the video decoder 3 2 will not be receiving the data values 
corresponding to that tree. Rather, the video decoder 32 
10 will be receiving only a non-interesting token, a single 
bit 0. The video decoder 32 will therefore write zeros 
into frame store 4 0 in the remainder of the corresponding 
tree. In order to make sure that both the video encoder 
31 and the video decoder 32 have exactly the same old 
15 frame 35 and 40, the video encoder too must zero out those 
non- interesting blocks. 

After the first frame of video data has been encoded 
and sent in STILL mode, the next frame of video data is 
processed by the video encoder 31. By default, the 
2 0 encoder now enters SEND mode. For lowpass frequency 

component two-by-two blocks, the video encoder 31 enters 
the LPF__SEND mode as illustrated in Figure 37. The 
encoding of such a lowpass component two- by-two block 
corresponds with the encoding of two-by-two block HHHH in 
25 Figure 25. However, now the comparison tree encoder 36 
has both a new frame in frame store 34 as well as an old 
frame in frame store 35. Accordingly, the comparison tree 
encoder 36 determines the arithmetic difference of the 
respective four data values in the new frame from the four 
30 data values in the old frame at the corresponding position 
and compares the sum of those differences with a compare 
threshold. The compare threshold, compare, is calculated 
from a base compare threshold "Bcompare" as in the case of 
the previous threshold which determines which blocks are 
35 interesting, similar to equations 60 and 61. If the sum 
of the differences is less than the compare threshold, 
then the video encoder 31 sends a single bit token 0 and 
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renains in the LPF_SEND mode, as illustrated in Fioure 37. 
The video encoder 31 does not transmit any data values 
corresponding to the lowpass frequency component 
two-by-two block. 
5 If, on the other hand, the sum of the arithmetic 

differences exceeds the compare threshold, then a single 
bit token 1 is generated, as illustrated in Figure 37. in 
this case, the video encoder 31 sends the arithmetic 
differences of each of the successive four data values of 

10 the new frame versus the old frame to the quantizer 37 and 
then to the Huffman encoder 38. The arithmetic 
differences are encoded and sent rather than sending the 
actual data values because this results in fewer bits due 
to the fact that the two blocks in the new and old frames 

15 are quite similar under normal circumstances. 

When the video encoder 31 proceeds to encode the 
octave 1 sub-band HHHG, as illustrated in Figure 25, the 
video encoder 31 enters the SEND mode, as illustrated in 
Figure 37. In this mode, the comparison tree encoder 3 6 

20 compares the data values of the new two-by-two block with 
the data values of the old two-by-two block and performs a 
series of arithmetic operations to generate a series of 
flags, as illustrated in Figure 38. Based on these flags, 
the video encoder 31 generates a 2 -bit token and enters 

25 one of four new modes for that two-by-two block. If, for 
example, the two-by-two block HHHG in Figure 25 is 
received by the video encoder 31, then flags oztlag,. 
nzflag, new_z, notlag, motion, origin, and no^z are 
determined. The values of these flags are determined as: 



1 1 

nz « EE l^^^i^Uyll (equ. 62) 

jfO y-o 
1 1 

no - EE l^^^'f^Hy]- old[x][y]| (equ. 63) 

*-o yo 
1 1 

02 = EE |ol<3t>fl(y]| (equ. 64) 
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nzflag = nz < limit 
noflag -- no < compare 
origin = nz < no 

motion = ( (nz + oz) << oct) < no 
5 new_z = |new[x)(y]| <gstep , 0 < x, y, < i 

no_z = |new[x][y] - old [xHy]|< qstep, 0<x,y<l 
ozflag = {old[x][y] = 0; for all o <x, y<i> 

Based on the values of these flags, the new node for 
10 the two-by-two block HHHG is determined, from Figure 38. 

If the new mode is determined to be the SEND mode, 
the 2-bit token 11 is sent as indicated in Figure 37. The 
arithmetic differences of the corresponding four data 
values are determined, quantized, Huffman encoded, and 
15 sent into the compressed data stream 39. 

In the case that the flags indicate the new mode is 
STILL_SEND, then the 2 -bit token 01 is sent and the new 
four data values of the two-by-two block are quantized, 
Huffman encoded, and sent. Once having entered the 
20 STILL_SEND mode, the video encoder 31 remains in the 
STILL_SEND mode until the end of the tree has been 
reached. In this STILL_SEND mode, a single bit token of 
either 1 or 0 precedes the encoding of each block of data 
values. When the VOID mode is entered from STILL_SEND 
25 mode, the video encoder 31 generates a single bit 0 token, 
then places zeros in the corresponding addresses for that 
two-by-two block, and then proceeds to place zeros in the 
addresses of data values of the two-by-two blocks in the 
tree above. 

30 In the event that the flags indicate that the video 

encoder 31 enters the VOID mode from SEND mode, a 2-bit 
token 10 is generated and the four data values of that 
two-by-two block are replaced with zeros. The VOID mode 
also results in the video encoder 31 placing zeros in all 

35 addresses of all data values of two-by-two blocks in the 
tree above. 

In the case that the flags indicate that there is no 



(equ. 65) 

(equ. 66) 

(equ. 67) 

(equ. 68) 

(equ. 69) 

(equ. 70) 

(equ. 71) 
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additional information in the tree being presently 
encoded, namely, the new and the old trees are 
substantially the' same, then a 2-bit token of 00 is 
generated and the video encoder 31 proceeds to the next 
5 tree in the decomposition. 

In general, when the video encoder 31 enters VOID 
mode, the video encoder will remain in VOID mode until it 
determines that the old block already contains four zero 
data values. In this case, there is no reason to continue 
10 in VOID mode writing zeros into that two-by-two block or 
the remainder of the blocks in the tree above because it 
is guaranteed that the old tree already contains zeros in 
these blocks. This is true because the old tree in frame 
store 35 has previously been encoded through the inverse 
15 quantizer 41. 

Because the video decoder 32 is aware of the tree 
structure of the decomposition, and because the video 
encoder 31 communicates with the video decoder 32 using 
tokens, the video decoder 32 is directed through the tree 
20 structure in the same manner that the video encoder 31 
traverses the tree structure in generating the compressed 
data stream 39. In this way the video decoder 32 writes 
the appropriate data values from the decompressed data 
stream 39 into the corresponding positions of the old data 
25 frame 40. The only flag needed by the video decoder 32 is 
the ozflag, which the video decoder obtains by reading the 
contents of old frame store 40. 

RATE CONTROL 
All transmission media and storage media have a 
3 0 maximum bandwidth at which they can accept data. This 
bandwidth can be denoted in terms of bits per second. A 
standard rate ISDN channel digital telephone line has, for 
example, a bandwidth of 64 kbits/sec. When compressing a 
sequence of images in a video sequence, depending upon the 
3 5 amount of compression used to compress the images, there 
may be a relatively high number of bits per second 
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generated. This number of bits per second may in some 
instances exceed the maximum bandwidth of the transmission 
rcedia or storage device. It is therefore necessary to 
reduce the bits per second generated to insure that the 
5 maximum bandwidth of the transmission media or storage 
device is not exceeded. 

One way of regulating the number of bits per second 
introduced into the transmission media or storage device 
involves the use of a buffer. Frames having a high number 
10 of bits are stored in the frame buffer, along with frames 
having a low number of bits, whereas the number of bits 
per second passing out of the buffer and into the 
transmission media or storage device is maintained at a 
relatively constant number. If the buffer is sufficiently 
15 large, then it is possible to always achieve the desired 
bit rate as long as the overall average of bits per second 
being input into the buffer over time is the same or less 
than the maximum bit rate being output from the buffer to 
the transmission media or storage device. 
2 0 There is, however, a problem associated with large 

buffers in video telephony. For a large buffer, there is 
a significant time delay between the time a frame of video 
data is input into the buffer and tine when this frame is 
output from the video buffer and into the transmission 
25 media or storage device. In the case of video telephony, 
large buffers may result in large time delays between the 
time when one user begins to speak and the time when 
another user begins to hear that speech. This time delay, 
called latency, is undesirable. For this reason, buffer 
30 size is specified in the standard H.261 for video 
telephony. 

In accordance with one embodiment of the present 
invention, a rate control mechanism is provided which 
varies the number of bits generated per frame, on a frame 
3 5 by frame basis. Due to the tree encoding structure 
described above, the number of bits output for a given 
frame is dependent upon the number of trees ascended in 
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the tree encoding process. The decisions of whether or 
not to ascend a tree are made in the lowest high frequency 
octaves of the tree structure. As can be seen from Figure 
25, there are relatively few number of blocks in the 
5 lowest frequency of the sub-bands, as compared to the 

number of blocks higher up in the sub-band trees. Given a 
particular two-by-two block in the tree structure, it is 
possible to decrease the value of Q in the equation for 
the threshold limit until that particular block is 
10 determined to be "interesting". Accordingly, a particular 
0 is determined at which that particular block becomes 
interesting. This process can be done for each block in 
the lowest frequency HG, GH and GG sub-bands.. In this 
way, a histogram is generated indicating a number of 
15 two-by-twc blocks in the lowest frequency of the three 
sub-bands which become interesting at each particular 
value of Q. 

From this histogram, a relationship is developed of 
the total nximber of two-by-two blocks in the lowest 

20 frequency of the three sub-bands which are interesting for 
a given value of Q. Assuming that the number of blocks in 
the lowest frequency octave of the three sub-bands which 
are interesting for a given value of Q is representative 
of the number of bits which will be generated when the 

25 tree is ascended using that given value of Q, it is 

possible to determine the value of Q at which a desired 
number of bits will be generated when that frame is coded 
with that value of Q. Furthermore, the greater the 
threshold is exceeded, the more bits may be needed to 

30 encode that tree. It is therefore possible to weight by Q 
the number of blocks which are interesting for a given 
value of Q. Finally, the Q values so derived should be 
averaged between frames to smooth out fluctuations. 

The encoder model RM8 of the CCITT Recommendation 

35 H.261 is based on the DCT and has the following 

disadvantages. The rate control method used by RMS is a 
linear feedback technique. Buffer fullness is 
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proportional to Q. The value of Q must be adjusted after 
every group of blocks (GOB) to avoid overflow or underflow 
effects. This means that parts of the image are 
transmitted at a different level quality from other parts. 
5 During parts of the image where little change occurs, Q 
drops which can result in uninteresting areas being coded 
very accurately. The objects of interest are, however, 
usually the moving ones. Conversely, during the coding of 
areas of high activity, Q rises creating large errors in 
10 moving areas. When this is combined with a block based 
transform, the errors can become visually annoying. 

The method of rate control described in connection 
with one embodiment of the present invention uses one 
value of Q for the whole frame. The value of Q is only 
15 adjusted between frames. All parts of an image are 
therefore encoded with the same value of Q. Moreover, 
because the tree structure allows a relatively few number 
of blocks to be tested to determine an estimate of the 
number of bits generated for a given frame, more 
20 intelligent methods of varying Q to achieve an overall 
desired bit rate are possible than are possible with 
conventional compression/decompression techniques. 

TREE BASED MOTION ESTIMATION 
Figure 39 represents a black box 1 on a white 
25 background 2. Figure 40 represents the sane black box l 
on the same white background 2 moved to the right so that 
it occupies a different location. If these two frames of 
Figures 39 and 4 0 are encoded according to the above 
described method, there will be a tree in the wavelet 
30 decomposition which corresponds with the white-to-black 
edge denoted 3 in Figure 39. Similarly, there will be 
another tree in the wavelet decomposition of the image of 
Figure 40 which represents the white-to-black edge 3' the 
wavelet decomposition of the image of Figure 40. All of 
3 5 the data values corresponding to these two trees will be 
determined to be "interesting" because edges result in 
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interesting data values in all octaves of the 
decomposition. Moreover, due to the movercent of the 
corresponding edge of black box 1, all the data values of 
the edges of both of these two trees will be encoded as 
5 interesting data values in the resulting compressed data 
stream. The method described above therefore does not 
take into account that it is the same data values 
representing the same white-to-black edge which is present 
in both images but which is just located at a different 
10 location. 

Figure 41 is...a one dimensional representation of an 
edge. The corresponding low path component data values 
are not illustrated in Figure 41. Data values 4, 5, 6, 1, 
8, and 9 represent the "interesting- data values of Figure 

15 41 whereas the other data values have low data values 
which makes those blocks "non-interesting", in the 
representation of Figure 41, data values 4 and 5 are 
considered a single two data value block. Similarly, 
blocks 6 and 7 are considered a single block and blocks 8 

20 and 9 are considered a single block. Figure 41, although 
it is a one dimensional representation for ease of 
illustration, represents the edge 3 of the frame of 
Figiire 39. 

Figure 42 represents the edge 3« shown in Figure 40. 

25 Figure 42 indicates that the edge of black box 1 has moved 
in location due to the fact that the values 19 and 21 
which in Figure 41 were in the two data value block 8 and 
9 are located in Figure 42 in the two data value block 10 
and 11. In the encoding of Figure 42, rather than 

30 encoding and sending into the compressed data stream the 
values 19 and 21, a control code is generated which 
indicates the new locations of the two values. Although 
numerous control codes are possible, only one embodiment 
is described here. 

35 When the two data value block 10 and li is tested to 

determine whether it is interesting or not, the block 
tests to be interesting. The neighboring blocks in the 
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Old frame are, however, also tested to determine whether 
the same values are present. In this case, the values 19 
and 21 are determined to have moved one two data value 
block to the right. An "interesting with motion" token is 
5 therefore generated rather than a simple "interesting" 
token. A single bit 1 is then sent indicating that the 
edge represented by values 19 and 21 has moved to the 
right. Had the edge moved to the left, a control code of 
0 would have been sent indicating that the edge 
10 represented by values 19 and 21 moved one location to the 
left. Accordingly, in the encoding of Figure 42, an 
"interesting with motion" token is generated followed by a 
single control code 1. The interesting values 19 and 21 
therefore need not be included in the compressed data 
15 stream. The video decoder receiving this "interesting 

with motion" token and this control code 1 can simply copy 
the interesting values 19 and 21 from the old frame into 
the indicated new location for these values in the new 
frame obviating the need for the video encoder to encode 
20 and transmit the actual interesting data values 

themselves. The same token and control codes can be sent 
for the two data values corresponding to a block in. any 
one of the octaves 0, 1 or 2. 

Figure 4 3 represents the motion of the edge 3 of 
25 Figure 39 to a new location which is farther removed than 
is the new location of black box i shown in Figure 40. 
Accordingly, it is seen that the values 20 and 21 are 
located to the right at the two data value block 12 and 
13. In the encoding of this two data value block 12 and 
30 13 a token indicating "interesting with motion" is 
generated. Following that token, a control code 1 is 
generated indicating motion to the right. The video 
encoder therefore need not encode the data values 20 and 
21 but merely needs to generate the interesting with 
35 motion token followed by the motion to the right control 
code. When the video encoder proceeds to the two data 
values block 14 and 15, the video encoder need not send 
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the "interesting with motion" token but rather only sends 
the left control code 0. Similarly, when the video 
encoder proceeds to encode the two data value block 16 and 
17, the video encoder only sends the left control code o. 
5 The control codes for octaves 0 and 1 do not denote motion 
per se but rather denote left or right location above a 
lower frequency interesting block of the moving edge. 
This results in the video encoder not having to encode any 
of the actual data values representing the moved edge in 
10 the decomposition of Figure 43. 

The one dimensional illustration of Figures 41, 42 
and 43 is presented for ease of illustration and 
explanation. It is to be understood, however, that this 
methcxi of indicating edge motion is used in conjunction 
15 with the above described two dimeneional wavelet 
decomposition such as the two dimensional wavelet 
decomposition illustrated in Figure 25. The video encoder 
searches for movement of the data values representing an 
edge only by searching the nearest neighboring blocks of 
20 data values in the old frame. This method can be used to 
search many neighbors or a few neighbors depending on the 
application. The counter scheme described in connection 
with Figures 27 and 28 can be used to determine the 
locations of those neighboring blocks. Although the edge 
25 motion illustrated in connection with Figures 41, 42, and 
43 shows the very same data values being moved in the tree 
structure of the decomposition, it is to be understood 
that in practice the values of the data values 
representing the same edge may change slightly with the 
3 0 movement of the edge. The video encoder takes this into 
account by judging corresponding data values using a 
motion data value threshold to determine if corresponding 
data values in fact do represent the same edge. By 
indicating edge motion and not sending the edge data 
3 5 values themselves it is possible to both increase the 
compression and also improve the quality of the 
decompressed image. 
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SIX COEFFICIENT QUASI -DAUBECHIES FILTERS 
The Daubechies six coefficient filters are defined by the 
six low pass filter coefficients, listed in the table 
below to 8 decimal places. The coefficients are also 
5 defined in terms of four constants, a, /?, -y and e, where q 
= 0.10588942, 0 = -0.54609641, y = 2.4254972 
and c = 3.0059769. 





Daubechiee 
coefficients 


Alternative 
repreeentation 


Komalized 
ccef f icientB 


Converted 
Coefficients | 


a 


0.33267055 


1/c 


0.2352336 


30 
128 


b 


0.80689151 


7/« 


0. 57055846 


73 
128 


c 


0.45987750 


-/3(a+7)/€ 


0.3251825 


41 
128 


-d 


-0.13501102 


/3(1 - ay)/€ 


-0.095467208 


-12 
128 


-e 


-0.08544127 


-ay/€ 


-0.060416101 


-7 
128 


f 


0.03522629 


a/e 


0.024908749 


3 
128 



Table 4 

15 The coefficients (a, b, c, -d, -e, f) sum to yT . The 
normalized coefficients sun to l, which gives the filter 
the property of unity gain, which in terms of the 
alternative representation is equivalent to a change in 
the value of e to 4.2510934. These values can be 

20 approximated to any given precision by a set of fractions. 
In the example shown above, each of the normalized values 
has been multiplied by 128 and rounded appropriately, thus 
the coefficient a has been converted to . Filtering 

is therefore possible using integer multiplications rather 

25 than floating point arithmetic. This greatly reduces 
implementation cost in terms of digital hardware gate 
count and computer software speed. The following 
equations show a single step in the filtering process, the 
outputs H and G being the low and high pass outputs, 

30 respectively: 

Hi=aDg+bDi+cD2-dD3-eD4+fDs (equ. 72) 
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GjS-fDo-eDi+dDi+cDj-bD^+aDj (equ. 73) 

H, and G, are calculated as follows. Each data value D 
is nultiplied by the relevant integer numerator (30, 73, 
41, 12, 7, 3) and summed as shown. The values of H and G 
5 are found by dividing the summations by the constant 128. 
Because 128 is an integer power of 2, the division 
operation requires little digital hardware to implement and 
only simple arithmetic shift operations to implement in 
software. The filters H and G are quasi-perfect 
10 reconstruction filters: 

a+b+c-d-e+f=l (equ. 74) 

-f-e+d+c-b+a=>0 (equ. 75) 

a+c-e=.| (equ. 76) 

f-d+b=^ (equ. 77) 

15 Equation 74 guarantees unity gain. Equation 75 

guarantees that the high pass filter will generate zero for 
a constant input signal. Equations 76 and 77 guarantee 
that an original signal once transferred can be 
reconstructed exactly. 
20 The following equations show a single step in the 

inverse transformation: 

Dj-2(-eH,-b6o+cH,+dG,+aH5-fG,) (equ. 78) 

Dj=2 (fHo+aCo-dH.+cGj+bHj-eG,) (equ. 79) 

As for the forward filtering process, the interleaved 
25 H and G data stream is multiplied by the relevant integer 
numerator and summed as shown. The output D data values 
are found by dividing the summations by the constant 64, 
which is also an integer power of 2. 

To calculate the first and last H and G values, the 
30 filter equations must be altered such that values outside 
the boundaries of the data stream are not required. For 
example, if Ho is to be calcualted using the six coefficient 
filter, the values D., and D.j would be required. Because 
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these values are not defined, a different filter is used at 
the beginning and end of the data stream. The nev filters 
are determined such that the reconstruction process for the 
first and last two data values is possible. The following 
5 pair of equations show the filter used to calculate the 
first H and G values: 

Ho=cDo-dD,-eDj+fDj (equ. 80) 

Go=dDo+cD,-bDj+aDj (gqu. 81) 

The last H and G values are calculated with: 
10 Hj=aDj+bD,+cD^-dDg (equ. 82) 

G5-fD,-eD,+dD;^+cD, (equ. 83) 

In this case, these equations are equivalent to using 
the non-boundary equations with data values outside the 
data stream being equal to zero. The following inverse 
15 transform boundary filters are used to reconstruct the 
first two and last two data values: 

ZJe»2( {c-|)/fo*(d*|)<?o*aifj-fGJ {equ. 84) 

D^'m^-d)ti^*{c--^)G„^bH^-eG^) (egu. 85) 

Dj,«2(-eH,-bG^*{c-I)H^*{d-^)G,) (egu. 86) 

Dg-2[fH,*aG^'{d*^)H^*(c'^)G,) (egu. 87) 



INCREASING SOFTWARE DECOMPRESSION SPEED 
A system is desired for compressing and decompressing 
video using dedicated digital hardware to compress and 
20 using software to decompress. For example, in a video mail 
application one user uses a hardware compression expansion 
card for an IBM PC personal computer coupled to a video 
camera to record a video message in the. form of a video 
message file. This compressed video message file is then 
2 5 transmitted via electronic mail over a network such as a 
hardwired network of an office building. A recipient user 
receives the compressed video message file as he/she would 
receive a normal mail file and then uses the software to 
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deccmpress the ccmpressed video nessage file to retrieve 
the video mail. The video mail nay be displayed on the 
monitor of the recipient's personal computer. It is 
desirable to be able to decompress in software because 
5 decompressing in software frees multiple recipients from 
purchasing relatively expensive hardware. Software for 
performing the decompression may, for example, be 
distributed free of charge to reduce the cost of the 
composite system. 
10 In one prior art system, the Intel Indeo video 

compression system, a hardware compression expansion card 
compresses video and a software package is usable to 
decompress the compressed video. This system, however, 
only achieves a small compression ratio. Accordingly, 
15 video picture quality will not be able to be improved as 
standard personal computers increase in computing power 
and/ or video bandwidth. 

The specification above disclosoe a method and 
apparatus for compressing and decompressing video. The 
20 software decompression implementation written in the 
programming language C disclosed in Appendix A only 
decompresses at a few frames per second on a standard 
personal computer at the present date. A method capable of 
implementation in software which realizes faster 
25 decompression is therefore desirable. 

A method for decompressing video described above is 
therefore modified to increase software execution speed. 
Although the b=19/32, a-11/32, c-5/32 and d=3/32 
coefficients used to realize the high and low pass forward 
3 0 transform perfect reconstruction digital filters are used 
by dedicated hardware to compress in accordance with an 
above described method, the coefficients b=5/8, a=3/8, 
c>l/8 and d^l/S are used to decompress in software on a 
digital computer. The coefficients are determined as shown 
35 in the table below. 
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^ = -^-^ " -3415(8) = 2.732 = 2 

^ " ' -5915(8) = 4.732 = 1 

8 

^ = = .1585 (8) . 1.268 = 1 

^= ^^7^ = .0915 (8) = 0.732 = 1 
5 Table 5 

An even start inverse transform digital filter in 
accordance with the present embodiment is: 

Do = 4[(b-a)Ho + (C-d)Go] (equ. 88) 

where, for example. Do is a first inverse transformed data 
10 value indicative of a corresponding first data value of a 

row of the original image, and where Ho and Go are first low 

and high pass component transformed data values of a row of 

a sub-band decomposition. 

An odd end inverse transform digital filter in 
IS accordance with the present embodiment is: 

Db =J[(c+d)H, - (a+b)G5] (equ. 89) 

where, for example, D, is a last inverse transformed data 
value indicative of a corresponding last data value of a 
row of the original image, and where H, and G, are last low 
20 and high pass component transformed data values of a row of 
a sub- band decomposition. 

An odd interleaved inverse transform digital filter in 
accordance with the present embodiment is: 



D(2x-1) ^ 



iH(x-l)-iG(x-l)+2H(x)*jG(x) (equ. 90) 



25 An even interleaved inverse transform digital filter 

in accordance with the ^present embodiment is: 

^ = -i»(^-l)-^iG(x-l) + iH(x)-.jG(x) (equ. 91) 

As indicated by equations 90 and 91, the odd and even 
• interleaved inverse transform digital filters operable on 
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the same H and G values of the sub-band decomposition but 
generate the odd and even inverse transformed data values 
in a row between the even start and odd end filters of 
equations 88 and 89. 
5 Using the above even start, odd end, odd interleaved 

and even interleaved inverse transform digital filters, a 
frame rate of approximately 15 frames/second is realizable 
executing on a Macintosh Quadra personal computer having a 
68040 microprocessor. Digital filters using the 
10 coefficients b=5/8, a»3/8, c=l/8 and d=l/8 may also be 
realized in dedicated digital hardware to reduce the cost 
of a dedicated hardware implementation where a slightly 
lower compression ratio is acceptable. 

To further increase software decompression speed when 
15 decompressing video on a digital computer, only two octaves 
of inverse transform are performed on video which was 
previously compressed using three octaves of forward 
transform. This results in the low pass component of the 
octave 0 decomposition. The low pass component of the 
20 octave 0 decomposition is a non-aliased high quality 
quarter size decimated version of the original image. 
Rather than performing octave 0 of inverse transform, 
horizontal linear interpolation is used to expand each row 
of data values of the low pass component of the octave 0 
25 decomposition into twice the number of data values. To 
expand the number of rows, each row of interpolated data 
values is replicated once so that the total number of rows 
is doubled. In. some embodiments, interpolation techniques 
other than linear interpolation are used to improve image 
30 quality. For example, spline interpolation or polynomial 
interpolation may be used. 

To further increase software execution speed when 
decompressing video, luminance data values are decompressed 
using the digital filters of equations 88, 89, 90 and 91. 
3 5 The chrominance data values, on the other hand, are 

decompressed using even and odd interleaved reconstruction 
filters having a fewer number of coefficients than four. 
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In one enibodiments , two coefficient odd interleaved Haar 
and even interleaved Haar filters are used. The even 
interleaved Haar reconstruction filter is: 

Do = (Ho + Go) (equ. 92) 

5 The odd interleaved Haar reconstruction filter is: 

D, = (Ho - Go) (equ. 93) 

Because the above Haar filters each only have two 
coefficients, there is no boundary problem as is addressed 
in connection with an above-described method. Accordingly, 
10 another start inverse transform digital filter and another 
end inverse transform digital filter are not used. 

To increase software execution speed still further 
when decompressing video, variable-length SEND and 
STILL_SEND tokens are used. Data values are encoded using 
15 a Huffman code as disclosed above whereas tokens are 
generated in variable-length form and appear in this 
variable-length form in the compressed data stream. This 
allows decompression to be performed without first 
calculating flags. 
20 Figure 44 shows variable-length tokens used for 

encoding and decoding in accordance with some embodiments 
of the present invention. Because transitions from SEND 
mode to STOP mode or from STILL_SEND mode to STOP mode 
occur most frequently of the transitions indicated in 
25 Figure 44, the corresponding tokens consist of only one 
bit. 

In general, if an area changes from white to black in 
two consecutive frames of a video sequence and if the 
encoder is in LPF_SEND mode, then the difference between 
30 the corresponding data values after quantization will be 
much larger than 37. 37 is the maximum number encodable 
using the specific Huffman code set forth in connection 
with an above-described method. Because such a large 
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change in data value cannot be encoded, an artifact will 
be generated in the decompressed image for any change in 
quantized data values exceeding 37. Accordingly, the 
Huffman code in the table below is used in accordance with 
5 one embodiment of the present invention. 



HUFFMAN CODE 


g index 


0 


0 1 


ISl 




IsOl 


±2 1 


IsOOl 


±3 j 


IsOOOl 


±4 1 


IsOOOOl 


1 


IsOOOOOl 


±6 1 


laOOOOOOl 


±7 1 


IsOOOOOOO (|gindex|-8) 


±8 . . ±135 1 



Table 6 



In Table 6 above, the value (\gindex\ - 8) is seven bits 
in length. The s in Table 6 above is a sign bit. 
This embodiment is not limited to video mail 

20 applications and is not limited to systems using dedicated 
hardware to compress and software executing on a digital 
computer to decompress. Digital circuitry of a general 
purpose digital computer having a microprocessor nay be 
used to decode and inverse transform a compressed image 

25 data stream. The coefficients 5/8, 3/8, 1/8 and 1/8 

independent of sign may be the four coefficients of four 
coefficient high and low pass forward transform perfect 
reconstruction digital filters used to transform image 
data values into a sub-band decomposition. 
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Although the present invention has been described by 
way of the above described specific embodiments, it will be 
understood that certain adaptations, modifications, 
rearrangements and ccmbinations of various features of the 
5 specific embodiments nay be practiced without departing 
from the scope of the invention. Filters other than the 
four coefficient quasi-Daubechies filters can be used. In 
some embodiments, six coefficient quasi-Daubechies filters 
are used. Embodiments of this invention may, for example, 

10 be practiced using a one-dimensional tree structure, a two- 
dimensional tree structure, or a three-dimensional tree 
structure. Rather than testing whether or not a two-by-two 
block of data values is interesting, blocks of other sizes 
may be used. Three-by-three blocks of data values may, for 

15 example, be tested. Blocks of different sizes may be used 
in different octaves of a decomposition. In certain 
embodiments, there are different types of interesting 
blocks. The use of tokens in combination with use of a 
tree structure of a decomposition to reduce the number of 

2 0 data values encoded may be extended to include other tokens 

having other meanings. The "interesting with motion** token 
is but one example. Tree structures may be used in 
numerous ways to estimate the activity of a frame for rate 
control purposes. Numerous boundary filters, thresholds, 
25 encoder and decoder modes, token schemes, tree traversing 
address generators, quantization schemes, Huffman-like 
codes, and rate control schemes will be apparent from the 
specific embodiments. The above-described specific 
embodiments are therefore described for instructional 

3 0 purposes only and are not intended to limit the invention 

as set forth in the appended claims. 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



- 89- 



PCT/GB94/00677 
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GREGORY KNOWLES AND ADRIAN S. LEWIS 
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APPENDDC A 
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source/Bits. c 



Reading and writing bits from a file 



^include "../include/xwave.h" 
^include ".. /include/Bits, h" 

Bits bopen(name,mode) 

String name, mode; 

{ 

Bits bits = (Bits)MALLOC(si2cof(BitsRec)) ; 

if((bits- > fp=fopcn(name.inodc))= =(FILE»)0)Eprintf("Failed to open binary 
file\n"); /*change*/ 

bits- > bufsize =0; /*new*/ 

bits- > buf = (unsigned char)0; /'new*/ 

renjm(bits); 

} 

void bclose(bits) 
Bits bits; 
{ 

if(fclose(bits->fp)!=0) Eprintf(Tailed to close binary fileXn"); /*was: 
fclosc(biis- > fp)*/ 
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XtFrcc(bits); 

} 

void bread(bytes,nmn,biis) 

unsigned char *bytes; 
int num; 
Bits bits; 



int byte»0, bit=0,pull.b; 

bytes [byte] =0; 
whi]e(nuiD>0) { 

if (bits->bufsi2e==0) { 

pulJ = fgetc(bits- > fp); 
if(pull= = EOF) 
{ 

/*printfCEOF\n"); Previously didn't check for 
EOFrbits- > buf = (unsigned char)fgetc(bits- > fp)*/ 

for(b = byte + 1 ;b < nuin/8 + 1 ;b + +) 
bytes[b]= (unsigned char)0; 

return; 
} 

bits- > buf = (unsigned char)pull; 
bits->bufsize»8: 

} 

bytes(byte}=((l&bits-> buf)!=0)?bytcs[byteJ|(l < < bit) : bytes [byte J&-(1 < <bit); 

if (bit = = 7) { bit «= 0; byte + + ; bytes[bytc] =0; } /* was bit = = 8 •/ 

else bit+-t-; 

bits- > buf = bits- > buf > > 1 ; 
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biisObufsize-; 
num--; 

} 

} 



void bwriie(byies, num. bits) 

unsigned char *bytes; 
int num; 
Bits bits: 



{ 

int byte=0, bit=0: 
unsigned char xfer; 



while(niim > 0) { 

if 0)11== 0) { 

xfer = bytes[byte + + ] ; 
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source/Color.c 
/* 

* Color routines 
•/ 

^include "../include/xwave.h* 
#dcfinc GAMMA 1.0/2.2 

int 

VisuaJClass[6] = {PseudoColor,DirectColor,TnjcColor.StaticColor.GrayScale,StaticGray); 
/* Function Name: Range 

* Description: Range convert for RGBAW calculations 

* Arguments: old_x - old value (O..old_r-1) 

* old_r - old range <new_r 

* new_r - new range 

* Returns: old_x scaled up to new range 
•/ 

int Range(old_x.old_r.new_r) 
int old_x, old_r, new_r; 
{ 

renmi((old_x*ncw_r)/old_r); 

} 

J* Function Name: Gamma 

* Description: Range convert with Gamma correction for RGB/YUV calculations 

* Arguments: as Range + 

" factor - gamma correction factor 
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old_x gamma corrected and scaJed up to new range 

inl Ganima(old_x , old_r. new_r, factor) 

int old_x, old_r, new_r; 
double factor; 

{ 

rctuni((int)((double)new_r*pow((double)old_x/(doublc)old_r, factor))): 

} 

/* Function Name: Dither 

* Description: Range convert with dithering for RGB/YUV calculations 

* Arguments: levels - output range (0..1evels-l) 

* pixel - pixel value (0..K <8+precision-l) 

* X, y - dither location 

* precision - pixel range (0..1 < <8+prccision-l) 

* Remms: dithered value (O..Ievels-l) 
•/ 

int Dither(levels,pixel,x,y,precision) 
int pixel, levels, x, y, precision; 

{ 

int bits=8+precision, 

pixlev=pixel*levels, 

value = (pixlev> >bits)+((pixlev-(pixlev&(-l< <bits)))> > precision > global- >dither[x 
&15][y&15]?l:0); 



Remms: 
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renirQ(value > = levels?le vels- 1 : value); 

} 

/* Function Name: ColCvt 

* Descriprion: Converts between RGB and YUV triples 

* Argumenis: src - source triple 

* dsi - destination triple 

* rgb_yuv - conven direction RGB- > YUV True 

* max - range of data (max-l..-max) 

* Returns: alters dst. 
*/ 

void ColCvt(src,dst,rgb_yuv,niax) 

short src[3], dst[3]; 
Boolean rgb_yuv; 
int max; 

{ 

double rgb_yuv_mat[2][3JI3] = {{ 

{0.299,0.587.0.114}. 
{-0.169.-0.3316,0.5}, 
{0.5,-0.4186,-0.0813} 

}.{ 

{1,0.1.4021}, 

{1,-0.3441,-0.7142}, 

{1,1.7718.0} 

}}; 

int i, channel; 

forichannel=0;channei<3;channel + -*-) { 
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double suin=0.0; 



for(i=0;i<3;i + +) 
suni+=(doub]e)(src[i])*rgb_yuv_m2t[rgb_yuv?0:l][chaiinel][i]; 

dst(channel] = (int)suin < -inax?-max: (ini)suni > max- 1 ?max- 1 : (shon)sum; 



/* Funciion Name: ComposiiePixel 

* Description: Calculates pixel value from components 

* Arguments: frame - Frame to be drawn on 

* X, y - coordinate of pixel in data 

* X, Y - coordinate of pixel in display 

* Returns: pixel value in colormap 



int ComposiiePixel(frame,x,y,X,y) 

Frame frame; 
int X. y. X. Y; 

{ 

Video vid= frame- > video; 

int channel - frame- > channel, pixel, value =0; 

if (channel! =3) { 

pixel = (int)vid- > daiafchanncl] [frame- > frame] [Address2(vid .channel ,x,y)] -t- ( 1 28 < < vid- 
> precision); 

value = Dither(global- > Icvels.pixcKX, Y.vid- > precision); 
} else for(channel=0;channel<3:channel+-l-) { 
int 
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levels = vid- > t>'pc = = RGB?global- > rgb_levels:g]obal- > yuvjevelsfchannel]; 



pixel = (int)vid- > daia[channel][fraine- > franie][Address(vid, channel, x.y)] -(-(128 < < vid- 
> precision), 

value = levels*value-»-Dither(levels,pixel,X,Y,vid- > precision); 

} 

remni( value); 

) 

void InitVisualO 
{ 

Display 'dpy = XtDisplay(globaJ- > loplcvel); 

inl scni=XDefaultScreen(dpy), class=0, depth=8, map, i, r, g, b, y, u, v; 
String 

VisuaJNames[6] » { "PseudoColor", "DirectColor", "TrueColor" , "StaticColor", "Grayscale", 
"StaticGray"}; 

XColor colon 

global- > visinfo=(XVisualliifo *)MALLOC(si2eof(XVisualInfo)); 
while(depth>0 

&&!XMatchVisualInfo(dpy,scm,depth, VisualClass[class],global- > visinfo)) 
if (class==5) {class=0; depth-;) else class++; 
Dpriiitf("Visual: %s depth %d\n",VisualNamcs[class],depth); 
global- > palettes = (Paletie)MALLOC(si2eof(PaleticRec)); 
strcpy(global- > palettes- > name,"Nonnal"); 
global- > palettes- > next = NULL; 
global- > no_pals= 1 ; 
switch(global- > visinfo- > class) { 
case TrueCoIor: 
case DirectColor: 
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case SiaiicColor; 
case Grayscale: 

fprinrf(stderr."Unsupponed visuaJ type: %s\Q",VisualNaines[classj); 
exitO; 
break; 
case Pseudocolor: 

global- > levels = global- > visinfo- > colonnap size; 

global- > rgb_levels = (int)pow((double)global- > levels,! .0/3.0); 

for(map=0;niap<2;map+-t-) { /* rgb non-gamma and gamma maps */ 

global- > cmaps[map] = XCreaieColormap(dpy,XDefaultRoctWindow(dpy), global- > visinfo 
- > visual,AJlocAJl); 

for(r = 0;r < global- > rgbjevels;r + +) 

for(g =0;g < global- > rgb Jevels;g + +) 

for(b=0;b < global- > rgb Jevels;b -t- { 

color. pixel =(r»global- > rgb_levcls-f-g) 'global- > rgb_levels+b; 

color.rcd=(map&l)?Gamma(r,global- > rgbJcvels,65536.GAMMA):Rangc(r,global- > rg 
b_levels,65536); 

color.grecn= (map&l)?Gainma(g,global- > rgbJevels,65536,GAMMA):Range(g,global- > 
rgb_levels,65536); 

color. blue = (map&l)?Gaimna(b.global- > rgb_levcls,65536,GAMMA):Range(b,global- > r 
gbjevels,65536); 

color.flags = DoRed | DoGreen | DoBlue; 

XStoreColor(dpy,global- > cmaps(map],&color); 

} 

color.pixel= global- > levels-1; 
color. red = 255 < <8; 
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color.gTeen=255< <8; 

color.blue=255< <8; 

color, flags = DoRsd | DoGreen | DoBlue; 

XStoreCoIor(dpy. global- > cmaps[map],&color); 

} 

for(inap=2;map<4;map-l-->-) { /♦ mono non-gamma and gamma maps */ 

global- > cmaps[map] = XCreateCclormap(dpy,XDefaultRootWindow(dpy),global- > visinfo 
- > visual.AllocAll); 

for(i =0;i< global- > visinfo- >colonmp_si2c;i+ +) { 
color.pixel=i; 

color.red = (niap<fel)?Gaiama(i,global- > levels,65536,GAMMA):Range(i,gIobal- > levels,6 
5536); 

color.green= (niap&l)?Gainma(i,global- > leveIs.65536,GAMMA):Rangc(i,global- > levels 
.65536); 

color.blue=(map&l)?Gamma(i,global->Ievels,65536,GAMMA):Range(i,global-> levels, 
65536); 

color.flags^DoRed | DoGreen | DoBlue; 
XStoreCoIor(dpy, global- > cmaps[map],&color): 



global- > yuv_levels[0] = (inc)pow((double)global- > levels, 1 .0/2.0); 
global- > yuv_levels[l] =(ini)pow((doublc)globaI- > levels, 1 .0/4.0); 
global- > yuv_lcvels[2] = (int)pow((double)global- > levels, 1 .0/4.0); 
for(map=4;map<6;map++) { /* yuv non-gamma and gamma map* */ 

global- > cmaps(map] =XCreateColorniap(dpy,XDefaultRootWindow(dpy),global- > visinfo 
->visual,AllocAlI); 

for(y =0;y < global- > yuv_levels(OJ;y + -f-) 
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for(u =0;u < global- > yuv_levels[l];u + +) 

for(v=:0;v < global- > yuv_ievcls[2];v-i- -i-) { 
shon 

src[3] = {(shon)(Range(y. global- > yuv_levels[0],65536)-32768). 

(shon)(Rai]ge(u , global- > yuv_le vels[ 1 ] ,65536)-32768), 

(shon)(RaDge(v,global- > yuv_leveis(2],65536)-32768)}, dst[3]; 

ColCvt(src,dst,False,65536/2); 

color.pixel = (y *global- > yuvjevels[ 1] -f- u) *global- > yuv_Icvels[2] +\; 

cclor.red =(map&l)?Gainma((int)dst[0] +32768,65536,65536,GAMMA):(int)dst[0] +3276 
8; 

color.gwn* (map&l)?Gainma((mt)dsi[l] +32768,65536,65536,GAMMA):(im)dst[l] -1-32 
768; 

color.bIue=(iMp&l)?Ganma((im)dst(2]+32768,65536,6f536,GAMMA):(int)dst[2]+327 
68; 

color.flags = DoRed j DoGreen j DoBlue; 

XSioreColor(dpy, global- > cmapsImap],&color); 

} 

color.pixel = global- > levels- 1; 
color.red=255< <8; 
color.green = 255 < < 8; 
color.blue=255< <8; 
color.flags=DoRed | DoGreen | DoBlue; 
XStorcCoIor(dpy .global- > cmaps[map],«S:coIor); 

} 
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global- > palettes- > mappings = NULL; 
break; 
case SuiicGray: 

global- > levels= 1 < < dep±; 

for(i=0;i<6;i-i-+) global- >cmaps[i] = XDefaultColormap(dpy,scni); 
color.pixel=0; 

XQueryColor(dpy,XDefaultColonnap(dpy,scni),«S:color); 
if (color.red==0 && color.grcen==0 && color.blue = =0) 
global- > palettes- > mappings = NULL; 
else { 

global- > palettes- > mappings = (Map)MALLOC(si2eof(MapRec)); 

global- > palettes- > mappings- > stan = 0; 

global- > palettes- > mappings- > finish = global- > levels- 1 ; 

global- > palettes- > mappings- > m = - 1 ; 

globa]->palettes-> mappings->C"'global-> levels-1; 

global- > palettes- > mappings- > next = NULL; 

} 

break; 

} 

} 



Colormap ChannclCmap(channel, type, gamma) 



int channel; 
VideoFormat type; 
Boolean gamma; 

{ 

Colormap cmap; 



if (channel! =3 1 1 typc==MONO) { 

if (gamma) cmap = global- >cmaps(global->cmapsl2] = =NULL?3:2]; 
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else cmap = global- > cmaps (global- > cmaps(3] = = NULX72 :3] ; 
} else if (type == RGB) { 

If (gamma) cm2p=global->cm2ps[global->craapsI0]= =NULL?1:0]; 
else cmap = global- > cmaps(global- > cmapsf I ] = = NULL70: 1 ] ; 

) else { 

if (gamma) cmap=global->cmaps[global->cmaps(4]= =NULL?5:4]; 
else cmap = global- > cmaps(global- > cmaps(5] = = NULL74 :5] ; 

} 

retuni(cmap); 
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^include "../include/xwave.h" 
shon cu(c) 
char c; 
{ 

retuni((shorl)(c)*.128); 

} 

char itc(i) 
short i; 

{ 

static int errors =0; 
if (i<-128 II i>127) { 
if (errors ==99) { 

Dprinif("100 Conversion overflows\n"); 
errors =0; 
} else errors++; 
i=(i<-128)?-128:127; 

} 

retum((char)(i*12«)); 
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2D wavelet tiaiisfonn convolver (fast hardware emulation) 
New improved wavelet coeffs : 11 19 5 3 

•/ 

^include "../include/xwave.h" 
I* Function Name: Round 

* Description: Rounding to a fixed number of bits, magnimde rounded down 

* Arguments: number - number to be rounded 

* bits - shif^ bits lost fiom number 

* Returns: rounded number 



sbon Round(number,bits) 

int number; 
int bits; 

{ 

if (bits= =0) rctum((shon)number); 

else renim((shon)(number+(l< <bits-l)-(number<0?0:l) > > bits)); 

} 

/• Function Name: Convolve 

* Description: Perform a wavelet convolution on image data 

* Arguments: data - data to be transformed 

* dim - convolution direction 
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size - size of image data 

oct_src, oci_dst - initial and final octave numbers 
data altered 

void Convolve(data,dini.sizc,oct_src,oct_dst) 

short *data; 

Boolean dim; 

ini si2c[2], oct_src, oct_dst; 

{ 

int tflb[4][4], addr[4] = {-l,-l.-l,-l}, index, mode, i. j, oct, oricni, 
area=si2e[0]*sizcllj; 

Boolean fwd_re v = oct^src < oct_dst; 

int windows(I23I5] = { 

{1,2,3,-4,2}. /• 0 - normal forward 0 ♦/ 
{4,-3,2,1,3}. /• 1 - normal forward 1 •/ 
{1,-2,3,4,2}, /• 2 - normal reverse 0 •/ 
{4,3,2.-1,3}, /* 3 - normal reverse 1 */ 
{2,3.4,-4,3), /* 4 - end forward 0 ♦/ 
{4,^.3,2.4). /* 5 - end forward 1 ♦/ 
{2.2,3.-4,2), /* 6 - start forward 0 •/ 
{4,-3,2,2,3), /* 7 - start forward 1 */ 
{3.-4.-4.3.4}. /• 8 - break reverse end dim==False*/ 
{4,3,-3,-4,3), /* 9 - break reverse stan dim==False ♦/ 
{-3,-4,4,3,4}, /* 10 - break reverse end dim==True »/ 
{^,3,3,-4,3}, /* 11 - break reverse start dim==Trae */ 
}. win[3]; /• 12 - no calculation •/ 

for(oct=oct_src;oct! =oct_dst;oa+ =(fwd_rev?l:-l)) { 
long shift =oct-(fwd_rev?0:l); 



* Returns: 
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for(oricm=0;oricni<2;oricm + + ) { 

Boolean x_y = fwd_rev= =(orient= =0); 

for (mdex=0;mdex<(area> >(sluft< < l));iiidex + +) { 

long major, minor, value, valuex3. valuexll, valuexl9, valuexf; 

major = indcx/(size[x_y?0:l]> >shift); 
minor = indcx-major*(si2e[x_j?0:l]> > shift); 
for(j=0;j<3;j + +) wiD(j] = 12; 
switch(minor) { 
case 0: break; 

case 1: if (!fwd_rev) win(03=dini?ll:9; break; 

case 2: if (fwd_rcv) { winI0]=6; wijj[l]=7; }; break; 

default: 

if (minor + 1 = =size[x_y?0: 1] > > shift) { 

if (fwd_rev) { win(0]=4; win(l]=5; } 

else { win(0J=2; win(l]=3; win[2]»=dim?10:8; } 

} else if (fwd^rev) { 

if (a&minor)==0) { win[01=0; win[l] = l; } 

} else { 

if ((l«feminor)!=0) { winI0]=2; win(l]=3; } 

} 

} 

addr|3&indexj =(x_y?minor:major) +size[0]*(x_>'?major:niinor) < < shift; 
value = (int)data[addr[3&indcx]l; 

valuex5= value + (value < <2); 

valuex3 = value + (value < < 1 ); 

valuexll =valuex3 + (value < <3); 

valucxl9=valuex3+(value< <4); 

tab[3&index][3] = fwd_rev || !dim?valuex3:valuexl9; 

tab[3&index][2] = fwd_rev || dim?valuex5: valuexll; 
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tab(3&mdM][l] = fwd_rev || !dini?valucxl9:valuex3; 
tab(3& index] [0]=fwd_rev || dim?valuexll:valuexf ; 
for(j=0;j<3 && win[j]! = 12;j++) { 
ini conv=0; 

for(i=0;i<4;i++) { 

int wave=dirn?3-i:i; 



conv+=regif(0>wiiidows[wmQ]]Iwave],tab[3&index+abs(windows[wm(i]][i])][wave]); 
} 

daia[addr[3&iiKiex + windows[wm(j]][4]]] = Round(conv,fwd_rev?5:win0] > 7?3 :4); 
} 

}}} 

} 
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/* 

Copy video, includes direct copy, differencing. LPF zero, LPF only. RGB-YUV 
conversion and gamma correction 
♦/ 

^include "../include/xwave.h" 
^include "Copy.h" 
extern int Shift(); 
extern void ColCvtO; 

void CopyVidcoCtrl(w.cIosurc,caIl_data) 

Widget w; 
caddrj closure, call_data; 

{ 

CopyCtrl ctrl=(CopyCtrI)closure; 

Video new=CopyHcadcr(ctrl-> video), src=ctri-> video; 

int frame, channel, i, x, y, X, Y, map[256]; 

if (global- > batch = = NULL) 
Ctrl- > mode = (int)XawToggleGctCurTent(ctrl- > radioGroup); 
strcpy(ncw- > namcctrl- > name); 
sircpy(new- > files,new- > name); 
switch(ctrl->mode) { 
case 1: Dprintf("Dircct copy\n"): 

new- > UVsample[0] =ctrl- > UVsamplefO]; 

new- > UVsamplefl] =ctrl- > UVsamplefl]; 
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break: 



case 2: 



Dprintf ( " Differences\n" ) ; 



break; 



case 3: 



Dprintf("LPF zeroVn"); 

break; 
Dprintf("LPF 0Dly\n''); 

new- > trans.typc=TRANS_None; 



case 4: 



new- > si2e[0] =new- > si2c[0] > > new- > trans, wave let. space [0]; 

new- > size[l] = new- > sizefl] > > new- > trans. waveJct.spacc[0]; 
break: 

case 5: Dprintf("RGB-yUV\n"); 



new- > type = new- > typc= = YUV?RGB:YUV: 
new- > UVsample[0] =0; 
new- > UVsample[l] =0; 
break; 



case 6: DprmtfCGamma conversionXn"); 

new- > gamma = ! new- > gamma; 



inap[i] = gamina(i,256,iiew- > gamma?0.5 :2.0); 

break; 

} 

if (new->disk==Tme) SaveHeader(new); 
for(fTame ■=0;frame < new- > size[2]:frame+ { 



for(channei =0;channel < (new- > type= =M0N0?1 :3);channel-f- -H) { 

int size = Si2e(new,channel,0)*Si2e(new,channel, 1 ); 



for(i«=0;i<256:i+-f) 



GetFrame(src,frame); 
NewFrame(new,frame); 
switch(ctrl->raode) { 
case 1: 
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forO = 0;y < Si2e(new, channel. 1 );y + +) 

foTix =0;x < Si2e(new,channel.0);x+ +) 

new- > da:2{channel][frame][x + Si2e(new,channel.0)*y] = src- > data(channelJIframe][Shift( 
x,src- > type = = YUV && 

channel! =0?new- > UVsamplc(0]-src-> UVsamplc(0]:0) + Size(src.channel,0)*Shift(y,src- 
>fype==YUV && channel! = 0?ncw->UVsample[l]-src->UVsampIc[l]:0)]; 
} 

break; 

case 2: 

for(channcl=0;channel < (new- > type= = M0N0?1 :3);channeH- H-) { 
int 

size = Si2e(new,channel,0)*Si2e(new,channel, 1); 

for(i=0;i<si2e;i-i--l-) 

new- > daia(channel] [frame] [i] = src- > da ta[channcl] [frame] [n-(framc- =0?0:src-> data(c^ 
anncl][frame-l][i]); 

) 

break; 

case 3: 

for(channel =0;channel < (new- > type = = MONO?1 :3);channel + +) { 
int 

size = Sizc(new,channcl,0)*Size(new,channel, 1); 

for(i=0;i<si2e;i-»--H) ( 

x=i%Si2e(new,channel,0); 

y = i/Size(new,channel,0); 

if 

(x%(l< < new- > trans. wavelet.space[new-> type == YUV &A channel! =0?1:0])= =0 
&& y%(l< < new- > trans, wavelet, space [new- > type == YUV Sc& 
channel! =0?1:0])==0) 
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new- > datalcharmel] [frame] [i] =0; 

else 

new- > daiafchannel] [framejn] = src- > datafchannel] [frame] [i] ; 

} 

} 

break; 

case 4: 

for(chaimel =0;chamiel < (new- > type = = MONO?! :3);channel + +) { 
int 

size = Si2e(new,cbannel,0)*Si2e(new,channel, 1); 

for(i=0;i<size;i-»--l-) { 

X = i %Si2e(ncw,chajmel,0); 

y = i/Size(new,channcl,0); 

new- > data[channcl] [frame] [i] =src- > data[channel]tframc]((x +(y < < new- > trans. wavele 
t . space [0]) *S ize(ncw , channel ,0)) < < ne w- > trans . wavelet . space [0]] ; 

} 

} 

break; 

case 5: for(X=0;X<new->si2e(0];X+-l-) 
for(Y=0;y<new->si2c[l];Y++) { 

short sn:_triple(3], dst_tr^)le[3]; 

for(chaiinel = 0;channel < 3 ;channel -I- -I- ) 

src_triple[channel]=sic->data[channel][frame][Address(sn;,channel,X,Y)]; 

ColCvt(src_triple,dst_triple,new->iype==yirV,l < <7+new-> precision); 

for(cbanne! =0;channel < 3;chaimel + +) 

} 

SUBSTITUTE SHEET (RULE 26) 
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break; 

case 6: 

for(chajinel = 0;ch2imel < (new- > type = =M0N0?l:3);channel++) { 
int 

s ize = S ize ( ne w , c hanne 1 . 0) • S ize (ne w , c hannel , 1 ) ; 

for(i=0;i<si2c;i++) 
new- > data[channcl][frainc][i] =map[src- > data[chaiiDel][franic][i] -I- 128J-128; 
} 

break; 

} 

if (frame >0) FreeFrameCsrc, frame- 1); 
SaveFrame(new, frame); 
FrccFramc(new , frame) ; 

} 

FrceFrame(src,src- > size(2]-I); 
new- > next = global- > videos; 
global- > videos = new; 

} 

void BatchCopyCirl(w.closure,call_data) 

Widget w; 

caddr_t closure, calJ_data; 

{ 

CopyCtrl ctrl=(CopyCtrl)closure; 

if (Ctrl- > video == NULL) 
Ctrl- > video = Find Video(ctrl- > src_name, global- > videos); 
CopyVideoCtrl(w,closurc.call_data); 

) 
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CopyCtrl InitCopyCtrl(namc) 

Siring name; 

{ 

CopyCtrl Ctrl =(CopyCtrl)MALLOC(si2eof(CopyCtrlRec)); 

strcpy(ctrl- > src_iiame,name); 
strq)y(ctrl- > name, name); 
Ctrl- > mode =1; 
return(ctrl); 

} 

#dcfme COPYJCONS 17 
void CopyVideo(w,closure,caIl_dau) 



Widget w; 

caddrj closure, call_data; 



Video video =(Vidco)closure; 

CopyCtrl Ctrl = InitCopyCtrl(video- > name) ; 

Numlnput UVinputs = (Numlnput)MALLOC(2*si2cof(NumJnpuiRec)); 
Message msg = NewMessage(ctrl- > name ,NAME_LEN); 
XtCallbackRec destroy_caI10 " { 

{Free.(caddrj)ctrl}, 

{Frec,(caddrJ)UVinputs} , 

{CloseMessage,(caddr_t)msg} , 

{NULL,NULL}. 

}: 

Widget shell = ShellWidget("copy_video",w,SW_below,NULL,destroy_call), 
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form = Format Widgei( "cpy_form " . shell), widget5(C0PY_IC0NS] ; 
Fonnltem itemsD = { 

{ • cpy_canccl " , "cancel " , 0 , 0,FW_icon, NULL} , 
{ "cpy^confinn" , "confmnM ,0,FWjcon,NULL} , 
{"cpy_tiUe","Copy a video". 2,0.FWJabel,NULL}, 
{ "cpy_vidjab", "Video Name: ",0,3,FW_]abel,NULL} , 
{ "cpyjext " ,NULL,4 .3 ,FW_text. (String)msg} , 

{ "cpy_copy " , "copy " ,0,5.FWjoggle,NULL} , 
{ "cpy_difr . "difT ,6,5 ,FWjoggle,(Strmg)6} , 
{"cpyJpf_2ero","lpf_2cro*,7,5,FW_toggle,(Strmg)7}, 
{"cpyJpf_only","lpf_only",8.5,FW_toggle,(String)8}, 
{ "q)y_color" . "color_space",9,5.FWjoggle,(String)9} . 

{"cpy_gamma","gaiiimaM0,5,FW_iogglc,(String)10}, 

{ "cpy_UV0_uu%NULL,0,6,FW_mieger,(Strmg)&UVinputs[0]} , 

{ "cpy_UVO_down" ,NULL, 12,6,FW_down,(String)&UVinputs(0]} , 

{ "cpy_UVO_up" .NULL, 13.6,FW_up,(Strmg)&UVinpuis[0]}, 

{"cpy_UVl_mi\NULL,0,14.FW_mtcger,(String)&UVinputs[l]}, 

{ "cpy_UVl_down" .NULL, 12, 14 ,FW_down,(String)&UVinputs( 11} , 
{ "cpyUVlup" ,NULL, 16.14,FW_up,(String)&UVinputs(l]}, 

}: 

XtCallbackRec callbacksU = { 
{Destroy , (caddr_t)shcll} , 
{NULL.NULL}, 
{Copy VideoCtrl,(caddr_t)ctrl} , 
{Desiroy,(caddr_t)sheIl} , 
{NULL.NULL}. 

{NULL.NULL}. {NULL.NULL}. {NULL,NULL}, {NULL.NULL}, 
{NULL.NULL}, {NULUNULL}. 

{NuniIncDec,(caddrj)&UVinputs[0]}, {NULL.NULL}, 
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{NuinIiicDec,(caddr_t)&UVmputs[0]}, {NULL,NULL}, 
{NumIncDec,(caddr_t)&UVinpuis[ 1 ] } . {NULL,iVULL} , 
{NmiilDcDec,(caddr_t)&UVinpi]ts[l]}, {NULL.NULL}, 

}; 

DprinifCCopyVideoVn"); 

msg- > rows = 1 ; msg- > cols = NAME_LEN; 
Ctrl- > video = video; 

UVinpuis[0]. formal =*UV sub-sample X: %d"; 

UVinpuis[0].min=O; 

UVinpuis[0].max=2; 

UVii^)uts(0].valuc= iSu:trl->UVsamplelO]; 
UVinputsIl].format= "UV sub-sample Y: %d"; 
UVuy3Uis(l].min=0; 
UVinputs(l].niax=2; 

UVinputs[l]. value = &ctrl->UVsample(l]; 

Ctrl- > UVsamplc[0] = video- > UVsamplefO]; 
Ctrl- > UVsamplclU = video- > UVsample(l]; 
Fi]lForm(fonn,COPY_ICONS,itcms,widgets,callbacks); 
Ctrl- > radioGroup = widgets(5]; 
XtSetSeiisitive(widgets{6], video- > si2e[2J > 1); 
XtSetScnsiiivc(widgets(7],video- > trans, type ! =TRANS_None); 
XtSctScnsitive(widgets[8],video- > trans.type! =TRANS_None); 
XtSetSensiiive(widgcis[91 .video- > type! = MONO); 
XtSetSenshive(widgets(10],video-> type! =yUV && 
video- > trans.type= =TRANS_None); 
XiPopup(shell.XtGrabExclusivc); 

}; 
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/* 

Frame callback routines for Destroy 

*/ 

#inc lude " . . /includc/xwa ve . h " 

^include <Xll/Xmu/SysUiil.h> 

^include <pwd.h> 

extern void CvtlndexQ; 

extern Palette FindPaletteO; 

extern void SetSensitiveQ; 

typedef struct { 
Frame ftame; 

int fTame_number, frame_zoom, frame_palette, frame^chaimel; 
} ExamCtrlRec, *ExamCtrl; 

void FrameDestroy(w,closure,calI_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Frame ftame =(Frame)closure; 

void CIcanUpPoinisO, FramcDclcteQ; 

Dprintf('FrameDesiroy\n"); 
frame- > point- > usage-; 
if (frame- > msg! = NULL) { 
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frame- > msg- > shell = NULL; 
Clos€Messagc(NULL,(cad(irj)ftaine- > rasg.NULL); 

} 

if (frame- > point- > usage ==0) CleanUpPoinis(&global-> points); 
XtPopdown(frame- > shell); 
XtDestroyWidget(frame- > shell); 
FrameDelete(&global- > frames, frame); 

} 

void CleanUpPoints(points) 

Point *points; 

{ 

Point dummy = *poinis; 

if (dummy! = NULL) { 

if (dununy- > usage < 1) { 

♦points ^ dummy- > next; 

XtFrcc(dunmiy); 

CleanUpPoints(points); 
} else CleanUpPoints(&((*poinis)- > next)); 

}; 

} 

void FrameDeIete(frames,frajne) 
Frame *frames, frame; 

{ 

if (•fTames!=NULL) { 
if (*frames== frame) { 
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iut number = frame- > frame; 



frame-> frame =-1; 
Fre€Framc(frame-> video. number); 
•frames = frame- > next; 
XtFree(frame); 
} else FrameDelete(&(*fTames)-> next. frame); 

} 

} 



void ExaimneCtrl(w,cIosure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

ExamCtrl ctii=(ExamCirl)closure; 
Arg args[l]; 



if (Ctrl- > frame- > frame! » ctri- > frame_numbcr-ctrl- > frame- > video- > start) { 
int oId_fTamc = Ctrl- > frame- > frame; 

Ctrl- > frame- > frame = Ctrl- > frame_number-ctrl- > frame- > video- > stan; 
FreeFrame(ctrI- > frame- > video,old_frame); 
GetFrame(ctrl- > frame- > vidco.ctrl- > frame- > frame); 

} 

Ctrl- > fiame- > zoom = Ctrl- > frame_zoom; 
Ctrl- > frame- > palene=ctrl- > framej)alene; 
Ctrl- > frame- > chamiel =ctrl- > frame_chaniiel; 
XtSciArg(argsIO],XlNbitmap,UpdatcImagc(ctrl- > frame)); 
XtSetVaIues(cirl- > frame- > image_widget,args,ONE); 
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XiSetArg(args(0],XLNcolonnap,ChannelCmap(ctrl- > frame- > channel.ctrl- > frame- > vide 
0- > type, Ctrl- > frame- > video- > gamma)); 

XtSctVaJucs(ctil- > frame- > shell. args, ONE); 

if (Ctrl- > frame- > msg! = NULL) UpdateInfo(ctrl- > frame); 

} 

^defme EXAMJCONS 13 

void Examine(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

ExamCtrl Ctrl = (ExamCtrI)MALLOC(si2eof(ExamCtrIRec)); 
Numli4)ut num_iiputs=(NumInput)MALLOC(2»sizeof(NumInputRec)); 
XtCallbackRec destroy_caUD - { 

{Free,(caddrj)ctrl}, 

{Frce,(caddr_t)num_iiqjuts}, 

{NULL,NULL}. 
}, pal_call[2*global->no_pals]; 

Widget shell =ShellWidget( "examine ",w,SW_below,NULL,destroy call), 

form- Format Widget("exam_fonn", shell), widgets [EXAMJCONSl, 
pal_widgcts[global->no_pals], pal_shell; 
Frame frame =(Frame)closure; 
Foimltem items[]s{ 

{ "exam_cancel " , "cancel " ,0,0,FW_icon, NULL} , 
{ "exam^confmn", "confirm", 1 ,0,FWJcon,NULL} , 
{ "exam Jabel" , "Examine" ,2,0,FWJabel,NULL} , 
{ "exam_chjab", "Channel : ",0,3,FWJabeI,NULL} , 

{ "exam_ch_bm",ChannelName[framc- > video- > type][frame- > channclJ,4,3,FW_bunon, " 
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exam_cng_ch"}. 



{"cxam_pal_lab"."PaJenc :".0.4.FWJabcl,NULL}. 



{ "examj3al_btn",FindPa]erte(global- > palenes, frame- > palette)- > name, 4, 4, FW bunon, " 
exam_cngj)ar}. 



{"exam_2_iiit",NULL,0,6,P»V_integer,(String)«&nimi inputs[0]}, 

{ "exam_z_dowm^NUlX,8,6,FW_down,(St^ing)&num_mputs(0] } , 

{ " exam_2_up " ,NULL,9 ,6 ,FW_up , (String)&num_inpuis(0] } , 

{ " exam_20om_mt ^NUlJ-,0, 8 ,FW_inieger, (Strmg)«Scnum_inputs[ 1 ] } , 

{"cxam_20om_dowm\>rUlX,8,8,FW_downXStriDg)&num_iq)uts[l]}, 

{ "exam__zoom_up " .NULL, 1 2 , 8 ,FW_up, (Striiig)&num iiiputs[ 1] } , 



Menultem pal_meDu[global- > no_pals] ; 
XtCaJlbackRec caUbacksO = { 

{Destroy ,(caddr_t)shell} , 

{NUIX.NULL}, 

{ExamineCtrI,(caddr_t)ctrl} , 

{Destroy ,(caddrj)shell} , 

{NULL,NULL}, 

{NumlncDec ,(caddr_t)&num_inputs[0] } , { NULL.NULL} , 
{NumlncDec,(caddr_t)&num_inputs(0]}, {NULL.NULL}, 
{NumIncDec,(caddrj)&niira_ii^uts[l]}, {NULL.NULL}, 
{NumlncDec ,(caddrj>tnum_inputs{ 1 ]} , {NULL.NULL} , 



}; 



int 



i, width =0; 



Palette 



pal = global- > palettes: 



XFontStnict *font; 
Arg args[l]; 



caddM 



dummy[global- > no_pals], dummy2 [global- > no_palsl; /* 



gcc-mc68O20 bug avoidance */ 



DprintfC " Examine\n'* ) ; 
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Ctrl- > frame = frame; 

Ctrl- > frainc_number= frame- > frame + frame- > video- > sian; 
Ctrl- > frame_2oom = frame- •> zoom; 
Ctrl- > frame_paletie = ft^c- > palette; 
Ctrl- > frame_channel = frame- > channel; 
num_inputs(0]. formats "Frame: %03d"; 

num_inputs(0] . max = frame- > video- > sian + frame- > video- > si2e[2]- 1 ; 

num_inpuis [0] . min = frame- > v ideo- > stan; 

num_inpuis[0].value=&ctrl- > frame_number; 

num_inpuis[l]. formats 'Zoom: %d"; 

iium_iq}uts[ 1 ] . max <- 4; 

num_ii9Uts[ 1 ] . min s 0; 

mmi_ii^7uts [ 1 ]. value s &ctrl- > frame^zoom; 

FaiForm(form,EXAM_ICONS,itciiis,widgcts,calIbacks); 

font = FindFom(widgets(6]); 
for(i=0;pal!=NULL;pal=pal->next,i++) { 

pal_menu[l] .name =pal- > name; 

pa]_mcnun] . widgetClass = smeBSBObjectClass ; 

pal_menu[i].label=pal-> name; 

pal_menu[i] .hook = NULL; 

pal_call(i*2] .callback = SimpleMenu; 

pal_callli*2] .closure = (caddr_t)&ctrl- > framejialetie; 

pal_calUi*2 + 1]. callback = NULL; 

pal_callli*2 + 1] .closure = NULL; 

widtb=TextWidth(width,paI- > name,font); 

} 

pal_shell = ShellWidget("exam_cng j3al",shell,SW_menu,NULL,NULL); 
FillMenu(paI_shcIl,global- > no_pals,pal_mcnu,pal_widgets,paI_call); 
XtSetArg(args[0] ,XtNwidth,2 -i- width); 
XiSciValues(widgets[61 ,args,ONE); 
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if (frame- > video- > type == MONO) XtSeiSensjiive(widgets(4], False); 
else { 

McDuIicm ch_menu(4]; 
Widget 

ch_shell = ShellWidget("exam_cng_ch", shell, SW_menu.NULL,NULL). ch widgeis(4]; 
XtCallbackRec ch_call(8]; 

foDt= FindFont(widgets[4]); 
width =0; 

for(i=0;i<4;i++) { 

ch_menu[i] .name =ChanDeINaine[frame- > video- > type][i] ; 
ch_incnu[i] . widgetClass = smeBSBObjectCIass; 
ch_mcnu[i] .label =ChannelNaine [frame- > video- > type][i]; 
ch_menu[i] .hook = (caddr_t)&ctrl- > fTamc_channel; 
ch_call[i*2] . callback = SimpleMcmi; 
ch_callfi*2].closure"(caddrj)&ctrl->frame__chaniieI: 
ch_caU[i*2+l].callback=NULL; 
ch_call[i*2 + 1 ] .closure = NULL; 

width=TextWidth(width,ChaimelNaine(frame-> video- > type] [i], font); 
} 

FillMenu(ch_shcll,4,ch_menu,ch_widgets,ch_calI); 
XtSeiArg(argsI01 ■XtNwidth.2 + width); 
XiSeiValues(widgetsI4] ,args, ONE) ; 

} 

XtPopup(sbeU,XtGrabExchisive); 

) 

void FramePointyN(w,closure,calI_^data) 

Widget w; 

caddr_t closure. call_data; 
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{ 

Frame frame = (Fraiiic)closure ; 
Arg args[l]; 
Pixmap pixmap; 

Display *dpy=XtDisplay(global-> toplevel); 
Icon pomt_y = FiDdIcon("point_jr*), 

point_n=FindIcon("poim n"); 

Dprintf("Fraii}ePoiiitYN\ii"): 

frame- > poinl_switch= ! frame- > poini_swiich; 

XtSctSensitive(fTame- > iraage_widget, frame- > point switch); 

XtSeiArg(args[01,XtNbimiap,(frame- > poini_switch?point_y:point_n)- > pixmap); 

XtSetVaIues(w,args,ONE); 

XtS€tArg(args[0],XtNbiimap,&pixniap); 

XtGetValues(frame- > image_widget,args,ONE); 

UpdatePoint(dpy .frame .pixmap); 

XtSetArg(args[0] .XtNbitmap.pixmap); 

XtS€tVahics(frame- > imagc^widget.args.ONE); 

if (frame- > msg ! = NUli) Updatclnfo(frame); 

} 

void NewPoint(w,closure,caIl_daia) 

Widget w; 

caddrj closure, call_data: 

{ 

Frame frame =(Framc)closure; 
Video vid= frame- > video; 
void UpdateFramesO; 
int *posn = (int •)call_data, 

channel = frame- > channel = =3?0:frame- > channel; 
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posD(0]=posD[0]> > frame- > zoom; posn[l] =posn[l)> > frame- > zoom; 
if (vid- > trans. type = =TRANS_ Wave) { 

inl octs=vid-> trans. wavelet. space(vid->type= = YUV &.& 
channel! =0?1:0], oct; 



CviJndex(posn[0],posn(l],Si2e(vid,chamiel,0),Si2c(vid,chanDel,l),ocis,&posn(0],&posn[l] 
.&0CI); 

} 

if (vid->type==YUV&A channel !=0) { 

posnfO] =posn(0] < < vid- > UVsample[0]; 
posn(l] =posn{l] < < vid- > UVsample(l]; 

} 

Dprintf("NewPoint %d %d previous %d 
%d\n",posn[0],posn(l], frame- > point- > locationIO], frame- > point- > locarionll]); 

if (posn [0] ! = frame- > point- > location[0] 1 1 
posn[l]! = frame- > point- > location(l]) { 

UpdateFrames(global- > frames.fiame- > poim,False); 
frame- > point- > location[0] =posn[0]; 
frame- > point- > location(l] =posn{l]; 
UpdatcFramcs(global- > frames, frame- > point.True); 
} else Dprintf("No movciDcni\n"): 



void UpdateFrames(fiaroe,point,update) 



Frame frame; 
Point point; 
Boolean update; 

{ 

Arg argsfl]; 
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if (frame! = NULL) { 

if (point = = frame- >poini &.&. frame- > point_switch =*= True) { 



XtSetArg(argsIO],XtNbimiap,&pixmap); 
XtGetValuesCframe- > image_widget,args,ONE); 
UpdatePoint(dpy , frame , pixmap) ; 
if (update = = True) { 

XtSelArg(args(0] .XtNbitmap , pixmap) ; 

XtSetValucs(framc- > image_widget,args,ONE); 

if (frame- > msg! =NULL) Updatelnfo(frame): 



UpdateFrames(fTame- > next,point,update); 



Pixmap 
Display 



pixmap; 

*dpy = XtDispiay (global- > toplevel); 



} 



} 



} 



void CloscInfo(w,closurc,caIl_data) 



Widget 



w; 



caddr t 



closure, call^data; 



Frame frame =(Frame)closure; 



frame- > msg = NULL; 



^defme 



INFOJCONS 



2 



void FrameInfo(w,closure,call_data) 
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Widget 



w; 



caddrj 



closure. calJ_data; 



Frame frame = (Frainc)closure; 

Message msg = NewMessage(NULL.1000); 

XtCallbackRec caJlbacksn = { 

{SetSensirive,(caddr_t)w} , 

{Closclnfo , (caddr_t)frame} , 

{CloseMcssagc, (caddr_t)msg} . 

{NULL.NULL}, 

}; 

Dprinif("FrameIiifo\ii"); 
frame- >msg=nisg; 
UpdateInfo(frame): 
TcxtSizeimsg); 

MessageWmdow(w,msg,frame- > video- > name,True,callbacks); 
XtSeiScnsirive(w,False); 



Frame frame =(Frame)closure; 
void MergePointsO; 
Arg args[l]; 

Dprintf( "FrameMerge\n") ; 
MergePoims(global- > frames.frame); 



void 



FrameMerge(w,closure,call_data) 



Widget 



caddr t 



closure, call_data; 
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vo id MergePoiins( f ranic_search , fraine_found) 

Fiame franie_search, franie_found; 

{ 

Arg args[l]; 



if (frame_S€arcb! =NULL) { 

if (NULL= =XawToggleGetCurTcm(frame_search->point_merge_widget) 
II frame_search==fTamc_found) 

McrgcPoints(framc_scarch- > next,fTamc_foxind); 

else { 

Pixnoap pixmap; 

Display *dpy=XtDisplay(global->toplevcl); 



XtSetArg(args[0],XtNbitmap,&pixmap); 
XtG€tValues(frame_found- > image^widget,args,ONE); 
if (frame_found->poinl_switch==Truc) 
UpdaiePoint(dpy , frame^found.pixmap); 

frame_search- > poim- > usage + + ; 
frame_found- > point- > usage-; 
if (frame^found- > point- > usage = =0) 
CleajiUpPoints(&global- > poinls); 

fTame_found- > point = frame_sean:h- > point; 
if (frame_found- > point_switch= =Tnie) { 

UpdatePoint(dpy,frame_found,pixniap); 

XtSctArg(argsIO] .XtNbitmap, pixmap); 

XiSeiVaIues(frame_found- > image_widgct,args,ONE); 

} 

if (frame_found- > msg! = NULL) UpdateInfo(frame_found); 
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XawToggJeUnsetCuiTem(frame_search- > point mergc_widget); 
XawToggJeUnsetCuiTent(fiame_found- > poini_merge_ widget); 

} 

} 

} 

^define POST_DIR "postscript" 

void PostScript(w,closurc,call_data) 

Widget w; 

caddr_t closure, call_dau; 

{ 

Frame frame = (Frame )closure; 
Video video = frame- > video; 
FE-E *fp, •fopenO; 

char file_name[STRLEN], hostnamelSTRLEN]; 
int X, y, width=Si2e(video,frame->chamiel,0), 
height = Size(video,frame- > channel, 1); 
struct passwd "pswd; 
long clock; 

Dprin£f('PostScript\n"); 

sprintf(file_narae, " %s %s/%s.ps\0" .global- > home,POST_DIR, video- > name); 
fp » fopen{file_name, "w"); 
fprintf(fp. " 7c % !PS-Adobe-l .0\n"); 
pswd = getpwuid (getuid 0): 

(void) XmuGetHostname (hostname, sizeof hostname); 
^rintf(fip,"%%%%Creaior %s:%s (%s)\n", hostname,pswd- > pw_naiiie, 
pswd->pw_gecos); 

fprinif(fp. " % % % %Title: %s\n", video- > name); 
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fprintf(fp,"%7e%%BoundiiigBox: 0 0 %d %d\n",widih,height); 
fpnnrf(fip,''%%%%CrearionDate: %s\iiimt (&clock), ctime («S:clock))); 
fprmtf(fp, " % % % %EDdCominems\n"); 
fprinrf(fp,''%d %d scalc\n".widih.height): 
fprintf(fp,"%d %d 8 image_print\n". width. height); 
GeiFramc(video,fraine-> frame); 
for(y=0;y<height;y + +) { 

for(x=0;x<width;x + +) { 
int X, y, Oct, data; 



if (video- > trans. type = =TRANS_Wave) { 

Cvtlndex(x,y,width,height, video- > trans.wavelet.space[0],&X,&Y,&oct); 

data = 128 +Round(video- > data[frame- > channel % 3] [frame- > frame] [Y*video- > si2c[0] + 
X]*(oct= = video- > trans, wavelet. space[0]?l:4), video- > precision); 
} else 

data = 128 + Round(video- > data[ftTime- > channel % 3] [frame- > fi^e][y* video- > size[0] + 
x],video- > precision); 

fprintf(fp," %02x",data<0?0:data> 255?255:data); 

} 

fiprintf(fip,-\n"); 

} 

FrccFrarae(video,frame- > frame); 
fclose(fp); 

} 

void Spectmm(w,closure,call_data) 



Widget w; 

caddrj closure, call_data; 
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{ 

Frame frame = (Frame)closure; 

Display 'dpy =XtDisplay(global- > toplevel); 

XColor xcolor[2], falsecolor; 

int i; 

Colonnap 

cmap = ChaniielCm2p(frame- > channel, frame- > video- > type, frame- > video- > gamma); 



Dprintf ( " Spectnmi\n " ) ; 

falsecolor .flags = DoRed | DoGrcen | DoBlue; 

XSynchroni2e(dpy,True); 

foKj=0;i<2-fglobal->levcls;i++) { 

if (i> 1) XSioreColor(dpy,cmap,&xcolor[i«&ll); /* Restore old color •/ 
if (i< global- > levels) { 

xcolor[i&l]. pixel =i; 

XQueryColor(dpy,cinap,«&xcolor[i&l]); 

falsecolor.pixel=i; 

falsecolor . red = xcolorf i& 1 ] .red + 325 12 ; 
falsecolor . green = xcolor [i& 1 ] , green + 325 1 2 ; 
falsecolor. blue = xcolorfi&l] .blue +32512; 
XStoreCoIor(dpy,cmap,&falsecolor); 

} 

} 

XSynchroni2e(dpy,False); 

} 
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/* 

Create Icons/Menus aod set Callbacks 

V 

^include "../indude/xwave.h" 
/* Function Name: Findlcon 

* Descripdoo: Finds IconRec entry from name in global icon array 

* Arguments: icon_name - name of icon bitmap 

* Returns: pointer to IconRec with the same name as icon_name 



Icon FindIcon(icon_name) 

String icon_name; 

{ 

int i; 

Icon icon = NULL; 

for (i =0;i < global- > no_icons;i + +) 

if (!strcmp(global->icons(i].namc,icon_name)) icon=&global->icons[i]; 
remm(icon); 

} 

void FillForm(parem,number,items,widgets,callbacks) 
int number; 
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Fonnltem iiemsf]; 

Widget parent, widgets[]; 

XiCallbaclcRec callbacksf]; 

{ 

Arg args[10]; 
int i, call_i=0; 

for(i=0;i<numbcr;i++) { 

ini argc=0, *'view=(im *)items[i].hook; 
char text(STRLEN); 
float top; 

Numlnput num=(NuinIiiput)items[i].hook; 
Floatlnput flt»(FIoatInput)itcms[i].book; 
Message msg » (Message)iteins[i] . book; 
WidgetClass 

classI15] = {labclWklgctClass.coirmaaiKlWidgctClass.commaiidWidgeiClass.asciiTextWidgc 
tQass, 

menuBunonWidgetClass .menuBunonWidgeiClass , viewport WidgetClass, toggle WidgetClass 

cominandWidgetClass,cominandWidgetClass,cominaiidWidgctClass,labelWidgetClass, 
scrollbarWidgctClass, labelWidgetClass.form WidgetClass} ; 
Boolean 

call[15] = {False,Truc,Tmc,False,False,FaIse,False,True,True,Tnie,Tnie,False.Falsc.Fals 
c. False); 

if (items[i].froiiiHoriz!=0) { 

XtSetArg(args[argc],XtNfromHoriz,widgets(items[i].fromHoriz-ll): 

argc+ + ; 

} 
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if (itcms[i],fromVen!=0) { 

XtS€iArg(argsIargc],XLNfromVen,widgeisfiicmsfi].fromVen-l]); 

argc + + ; 

} 

swiu:h(iiems[i].t)'pe) { /* Initialise contents */ 
case FW_yn: 

items [i] . contents = *(Booleaii *) items [i] . hook? "confirm " : " cancel " ; 

break; 
case FW_up: 

iicms[i] . contcnis = "up " ; 

break: 
case FW_down: 

items[i] .contents = "down" ; 

break; 
case FW_integer: 

sprintf(text,nuffi- > format, •nmn- > value); 

itemsfi] .contents = text; 

break; 
case FW_float: 

sprintf(text, fit- > format, ♦fit- > value); 

items[i] . contents = text; 

break; 

} 

switch(itemsni.type) { /♦ Set contents */ 

case fW_labcl: case FW_command: case FW_button: case FW_intcger: 
case FW float: 

XtSetArg(args(argc],XtNlabel,iiems[i].contents); argc+ -I-; 
break; 

case FW_down: case FW_up: case FW_yn: case FWjoggle: case 
FW_icon: case FW_icon_button: { 

Icon icon =FindIcon(items[i]. contents); 
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if (icon == NULL) { 

XtSciArg(args(argcj.XLNlabcI.items(i].content5); argc + + ; 

) else { 

XtSetArg(args[argc],XtNbiiniap,icon- > pixmap); argc + + ; 
XtSeiArg{args[argc],XtNheight,icon- > heiglit+2); argc+ + ; 
XtS€tArg(args(argc],XtNwidth,icon- > width +2); argc + + ; 

} 

} break; 

} 

swiich(iicnis[i].typc) { /* Individual set-ups */ 
case FW_text: 

XiSetArg(args(argc],XiNsiring,msg-> info.ptr); argc+ +; 
XiSetArg(args(argc],XtNeditType,msg->edit); argc++; 
XtSetArg(args(argc],XtNuseStringInPlace,Tnje); argc + + ; 
XiSetArg(args(argc],XtNlength,msg- > size); argc + + ; 
break; 

case FW_bunon: case FW_icon_button; 

XtSeiAjg(aTgs [argc] , XtNmcnuName , (Siring)items [i] . book) ; 

argc + + ; 

break; 
case FW_toggle: 

if ((ini)itcms[i].hook» =0) { 

XtSctArg (argslargc] .XtNradioData, 1 ) ; argc + + ; 
} else { 

caddrj radioData; 

Arg radioargs[l]: 

Widget radioGroup = widgets I (ini)iten3s[i] .hook- 1 ] ; 

XtSetArg(radioargs[0],XiNradioData.&radioData): 
XtGet VaJues(radioGroup , radioargs, ONE) ; 

XtSetArg(args(argc],XtNradioData,(caddr_t)((int)radioData + 1)); argc-*- -(- ; 
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XiSeLArg(args(argc],XtNradioGroup,radioGroup); argc + + ; 

} 

break: 
case FW_scroll: 

top = (noat)(*nt- > value-fit- > inm)/(flt- > max-flt- > min); 
XtSetArg(args[argc],XtNtopOfThumb,&iop); argc-f + ; 
XtSetArg(args[argc] .XtNjumpProc,&callbacks[call_i]); argc + + ; 
whiJe(callbacks[call_i] . callback! = NULL) call_i + + ; 
callj+ + ; 

break; 
case FW_view: 

if (view!=NULL) { 

XtSetArg(args[argc],XtNwidth,view[0]); argc + + ; 
XiSetArg(args[argc],XtNheight,view[l]); argc-t- + ; 

} 

break; 

} 

widgets[i] = XtCreateManagedWidget(itenis[i] .naine,class[(iDt)items[i] .type] , pare 
gc); 

switch(iteins[l].type) { /• Post processing •/ 
case FWjoggic: 

if (itcms[i]. hook == NULL) { /* Avoids Xaw bug */ 

XtSctArg(args[0],XtNradioGroup,widgets[i]); 

XtSetValues(widgets[i],args,ONE); 

} 

break; 
case FW_text: { 

XFontStnict '•font; 
Arg iext_args(ll; 

msg- > widget = widgeis[i] ; 
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XawTexiDisplayCareUmsg- > widget,img- > edii! = XawiexiRead); 
X iSe lArg (icxt_args [0] , XiN font ,& font) ; 
XtGetValues(widgets[i],text_args,ONE); 
argc=0; 

if (msg-> edit == XawiexiRead && msg-> info.ptr(0]! = '\0') 
XtSeLAig(ajgs(argc],XtNwidth.4-l-TextWidth(0.msg->info.ptr,font)); 
else 

XtSeiArg(argsIaigc],XtNwidtb,4 + rasg- > cols*(font- > max_bounds.width + font- > min_bo 
unds.width)/2); 

argc-l--f-; 

XtSetArg(argsIargc],XtNhcight.l +msg- > rows»(font- >max_bounds. ascent + font- > niax_ 
bounds.desccni)); argc+ + ; 

XtSetVaIues(widgets[i] ,aigs, argc) ; 

} break; 
case FW_bution: 

XtOverridcTranslaiions(widgets[i],XiParseTranslationTable(" <BtnDown> : resetO 
NameBunonO PopupMenuQ")); 

break; 
case FW_down: 

if (•num- > value = =num- > min) XtSetSensiiive(widgeu(i] .False); 
num- > widgets[0] = widgets(i] ; 
break; 
case FW^iq): 

if (*num- > value == num- > max) XtSetSensiiive(widgets[i], False); 

num- > widgets[l] =widgets[i]; 

break; 
case FW_intcger: 

num- > widgets [2] = widgets [i]; 

break; 
case FW scroll: 
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fll-> widgets(l] = widget5[i]; 
XawScrol]barSetThumb(widgets[i], top. 0.05); 
break; 
case FW_float: 

fit- > widgeis[0] = widgets[i]; 
break; 

} 

if (caU[(int)items[i].typ€]) { /• Add Callbacks •/ 
if (callbacksIcaUj] .callback! = NULL) 

XtAddCallbacks(widgets[i] ,XiNcallback,&callback5[call_i]); 
while(callbacks[calJ_i] .callback! = NULL) call_i + + ; 
callj++; 

} 

) 

} 

Widget ShelIWidget(nan)e,parent,type,cmap,calJbacks) 

String name; 
Widget parent; 
ShellWidgctType type; 
Colormap cmap; 
XtCallbackRec caJlbacksQ; 

{ 

Widget shell; 
Arg argsl3]; 
Position X, y; 
Dimension height =-2; 
int argc=0; 
WidgetClass 

class[] = {iran5icniShcllWidgetClass,transientShellWidgeiClass.topLevelShellWidgetClass,p 
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uJlRightMcnuWidgctClass) ; 

if (type ==SW_be low 1 1 type= =SW_over) { 
XtTranslateCoords(parent,0,0,&x.&y); 
if (type==SW_below) { 

XiSetArg(args [0] ,XtNheight,&height) ; 
XtGelValues(parcnt.args,ONE); 

} 

XtS€iAjg(args[argc],XtNx,x); argc+ + ; 
XtSetArg(args[argc],XtNy,y + height+2); argc+ + ; 

} 

if (cmapl-NULL) { 

XtS€tArg(args[argc],XtNcolonnap,cmap); argc + + ; 

} 

sbdl = XtCrMtePopupShel](name,cIass(type] ,parenr,args,argc); 

if (callbacksl = >nJLL) XtAddCalIbaclcs(shell,XtNdcstroyCallback,callbacks); 

returD(shell); 

} 

Widget Format Widget(naiDC .parent) 

String name; 
Widget parent; 

{ 

renim(XtCreatcManagedWidgct(namc,fonnWidgetClass,parent,NULL,ZERO)); 

} 

void FillMcnu(parcnt.number,items.widgets,callbacks) 

im number; 
Menultem itemsf]: 
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Widgei I 
XiCaJIbackRec 



parent, widgctsQ; 
: caJIbacksfl; 



Arg args[4]; 

int i, callj=0; 

Icon icon=FmdIcon("right"); 

for(i=0;i<number;i++) { 
int argc=0; 

XtSctArg(args[argc],XiNlabcI,itcms[i]. label); argc+ + ; 
if (itcms[i].widgctClass==smeBSBprObjectCIass) { 

XiSeiArg(args[argc],XtNmenuName,items[i].hook); argc+ +; 

XtSetArg(args[argc] ,XtNrightMargia,4 + icon- > width); argc + -I- ; 

XtSetArg(args[argc],XtNhghtBitniap,icon- > pixmap); argc+ -t-; 



widgets[i] = XtCreateMamgedWidgct(itenis[i].naiiie,itcms[i].widgetClass,parent,args,argc) 



if (itcms[i).widgetClass==smeBSBObjectClass) { /* Add Callbacks ♦/ 
XtAddCaUbacks(widgets[i],XtNcallback,&caUbacks(call_i]): 
while(callbacks[caIl_i].caUback! =NULL) caUJ-l--»-; 
caU_i++; 



} 



} 



} 



} 



void SinipleMenu(w,closure,call_data) 



Widget 



w; 



caddr t 



closure, call_data; 
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{ 

iar •hook = (int •)closure, no_child, child, argc=0; 
Widget meDU=XtPareiit(w), bunon; 
WidgetList children; 
char *label; 
Arg args[3]; 

XtSetArg(args[argc],XtNlabel,&label); argc + +; 
XtGetValues(w,args,argc); argc=0; 
XtSetArg(args[argc],XtNchi]dren,&children); argc + + ; 
XtSeiArg(args[argc] ,XlNnumChildren,&no_child); argc + + ; 
XtSciArg(args[argc],XtNbutton.&bunon); argc + + ; 
XtGetValucs(incmi,args,argc); argc=0; 

for(child=0;childrcn[child]!=w &&. child <no_chiId;) child+ + ; 
if (w!=childrcn(child]) ^rintf("SiinplcMemi: menu crrorXn"); 
*hook= child; 

XiSeiArg(args[argc],XiNlabel,label); argc+-»-; 
XtSetVa]ues(bunon,args,argc); 

} 

void NumIncDcc(w,closure,call^dau) 

Widget w; 

caddrj closure, call_data; 

{ 

Numlnpui daia=:(Numlnput)closure; 

Arg args[l]; 

char textlSTRLEN]; 

*data- > value + = (w= =data- > widgets[OJ)?-l : 1 ; 
sprinif(iexi,daia- > format, *data- > value); 
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if (data- > miii= = 'daia- > value) XtSetSensiiive(data- > widgeisfO], False); 
else XtSeiSensirive(daia-> widgets[0],Tnjc); 

if (data- > max » = •data- > value) XtSetScnsiiive(daia- > widgets{ 1] .False); 
else XiSetScii5itive(daia-> widgcts[l],Tnjc); 
XtSetArg{args[0],XtNlabel.iexi); 
XtSetValuesCdata- > widgets[2],aigs,0NE); 

} 

void FloatIncDec(w,closure,call data) 

Widget w; 

caddrj closure, cal]_data; 

{ 

Floatlnput data = (FloatIi^)ut)closure; 

Arg argstlj; 

char textlSTRLEN]; 

float percent" •(float •)call_data; 

♦data- > value = data- > inin+(doublc)percem*(data- > max-data- > min); 
sprintf(iexi,data- > format, ♦data- > value); 
XtSetArg(args[0],XtNlabel,text); 
XtSetValues(daia- > widgets[0],args.ONE); 

} 

/* Function Name: Change YN 

* Description: Toggle YN widget state 

* Arguments: w - toggling widget 

* closure - pointer to boolean state 

* call_data - not used 

* Returns: none. 
*/ 
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void Change YN(w,closuTe,caJl_data) 

Widget w; 

caddrj closure, call_dau; 

{ 

Boolean '6001= (Boolean •)closiire; 

Icon icon=FindIcon((*bool != Tnie)?"conrinn": "cancel"); 

Aig args[4]; 

int argc=0; 

*bool « ! *bool; 

XtSetArg(args[argc] ,XtNbitmap,icon- > pixmap); argc + + ; 
XtSctArg(args[argc],XtNhcighi,icon->height+2); argc+ +; 
XtSetArg(args[argc],XtNwidth,icon- > width +2); argc + + ; 
XtSctValucs(w,args .argc): 

} 

int TextWidth(inax, text, font) 

int max; 
String text; 
XFontSiruci *font; 

{ 

int i=0, j: 

while(iext[i]! = '\0'){ 
int width; 

for(j=0;icxt[i+j]! = *\0' && tcxtn+j]» = '\n*;) j + + : 
width = XTexiWidth(font,&iext[i] J); 
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max=max> width?inflx:wi(ith; 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documcnration, and that the names of Digital or MIT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROHTS. 

WHETHER IN AN ACTION OF CONTRACT, NEGUGENCE OR OTHER 
TORTIOUS ACTION, 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 
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• Image. c - Image widget 
•/ 

#defme XtStrlen(s) ((s) ? strlen(s) : 0) 

jfinclude <sidio.h> 
^include <ctype.h> 
^include <Xll/IntrinsicP.h> 
^include <Xll/StringDcfs.h> 
^include <X11/Xaw/Xawlnit.h> 
#iiicliide "../include/ImageP.h" 

^define sireq(a,b) (stinnp( (a), (b) ) = = 0) 
* 

• FuU class record constant 

• • • 

/• Private Data */ 

static char defaiiltTranslationsQ = 
" <BtnlDown> : notifyO\n\ 
<BtnlMotion>: notifyO\n\ 
<BtnlUp>: notifyO"; 
^define offsct(ficld) XtOfTsct(Iinagc Widget, field) 
static XtResource resourcesQ = { 

{XtNbitmap, XtCPixmap, XtRBitraap, sizeofCPixmap), 
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offsct(iinage.pixniap), XiRImmediate, (caddrj)None}, 
{XtNcallback, XtCCalJback. XtRCallback, sizeofCXiPointer), 
offset(iinage.caUbacks), XtRCallback, (XtPoimer)NULL}, 

); 

sutic void InitiaJizeO; 
sutic void ResizeO; 
static void RedisplayQ; 
static Boolean SetValuesQ: 
static void ClassIniiializeQ; 
static void DestroyO; 

static XtGeometiyResult QueryGcometiyO; 

static void NotifyO, GctBitmapInfoQ; 

sutic XtActionsRec actionsDstO={ 
{"notify", Notify}, 

}: 

IniageClassRec imageClassRec » { 
{ 

/* core_class fields ♦/ 

#definc superclass (AsimpleClassRec) 



/• superclass 


*/ 


(WidgetClass) superclass. 


/• class_name 


•/ 


"Image", 


/• widget_si2e 


•/ 


sizeofOniageRec), 


/* class_initializc 


•/ 


Classlnitialize, 


/♦ classj)art_initialize 


*/ 


NULL, 


/♦ class_inited 


♦/ 


FALSE, 


/* initialize 


•/ 


Initialize, 


/• initial ize_hook 


•/ 


NULL, 


/* realize 


*/ 


XtlnheritRealize, 
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/* 3CtiOIlS 


•/ 


aciionsLisi, 


/• nuni actions 


•/ 


XtNumber(actionsList), 


/* resources 


•/ 


resources. 


/* Duin resources 


•/ 


XtNuinbcr( resources) , 


/* xnn_class 


•/ 


NULLQUARK, 






•/ TRUE. 


/* conipress_exposurc 


•/ 


TRUE, 


/ coniprt55_ciiiciic<iTc 


•/ 


TRUE, 


/• visible interest 




*/ FALSE 


/* destroy 


•/ 


Destroy, 


/* resize 


•/ 


Resize, 


/• expose 


•/ 


Redisplay, 


/• set_va]ucs 


•/ 


SetValues, 


/* set_valucs_hook 




•/ NULL, 


/* sct_values_aIn)OSi 


*/ 


XtlnberitSetValuesAlmost, 


/* get_values_book 




*/ NULL, 


/• accept_focns 


•/ 


NULL, 


/• version 


*l 


XtVersion, 


/• calJback_private 


•/ 


NULL, 


/* tin_uble 




*/ defaultTranslatioas, 


/* query_gconietry 




•/ QueryGcometry, 


/• display_accelcrator 


*/ 


XtlnheritDisplay Accelerator, 


/* extension 


•/ 


NULL 



}. 

/* Simple class fields initialization */ 
{ 

/* change sensitive */ XllnheritChangeSensitivc 

} 

}: 

WidgetClass imageWidgetClass = (WidgetClass)&iinageClassRec; 



Copied from 10340491 on 04/01/2005 



wo W/23385 



PCT/GB94/00677 



- 147- 

* Private Procedures 



static void ClassLnitiaJizeO 
{ 

extern void XmuCvtStringToBitmapO; 
static XtConvcriArgRcc scrccnConvenArgQ = { 

{XtWidgetBaseOffset, (caddrj) XtOffsct(Widgei, core. screen), 
si2eof(Screen *)} 

}; 

Xawlnitialize WidgctSetO ; 

XtAddConvcncr("String", "Bitmap", XmuCvtStringToBitmap, 
screcnConvertArg, XtNumbcr(screenConvertArg)); 
} /* Classlnitialize ♦/ 

/* ARGSUSED */ 

static void Iiutia]ize<requcst,new) 

Widget request, new; 

{ 

ImageWidget iw = (ImageWidgct) new; 

Dprinif("lmagelnitialize\n"); 

if (iw- > image.pixmap = = NULL) 

XtErrorMsgCNoBitmap" , "asciiScurceCreate", "XawError" , 

"Image widget has no bitmap. ",NULL,0); 
GciBitniapInfo(new); 

if (iw-> iraagc.map_width< =0 1 1 iw-> image. inap_height< =0) 

XtEnorMsg( " NoDimension" , "asciiSourceCreate " , "XawError" , 
"Image widget illegal map dimension. ",NULL,0); 
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if (iw->core.u'idth == 0) iw- > core. width = iw-> image. map_ width; 
if (iw-> core. height == 0) iw- > core. height = iw-> image. map_height; 

('XiClass(new)- > core_cIass. resize) ((Widget)iw); 

} /* Initialize */ 

/* 

* Repaint the widget window 
*/ 

/* ARGSUSED •/ 

sutic void Redisplay(w, event, region) 
Widget w; 
XEvem *evenl; 
Region region; 

{ 

Image Widget iw - (Image Widget) w; 

Dprintf("ImageRedispIay\n"); 
if (region != KULL &&. 
XRectInRegion(rBgion, 0, 0, 

iw-> image.map_width, iw-> image. map_height) 
= = RectangleOut) 
return; 

XCopyArcaC 

XtDisplay(w), iw-> imagc.pixmap, XtWindow(w), 
DefaultGC(XtDisplay(w),XDefauitScrecn(XtDisplay(w))), 

0, 0, iw-> image. m^_width, iw- > image. map_height, 0, 0); 

} 
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static void Resi2e(w) 
Widget w; 

{ 

IraageWidget iw = (ImageWidget)w; 
Dpriiitf("IniageResize\n"); 

} 

/* 

* Set specified arguments into widget 
*/ 

static BooleaB SetVaJues(currem, request, new, args, num args) 
Widget CTirrent, request, new; 
ArgList args; 
Cardinal *iiuin_args; 

{ 

ImageWidget curiw = (ImageWidget) current; 
ImageWidget reqiw = (ImageWidget) request; 
ImageWidget ncwiw = (ImageWidget) new; 
Boolean redisplay = False; 

/♦ recalculate the window size if something has changed. */ 

if (curiw- > image. pixmap != newiw-> image. pixmap) 
XFrecPiAinap(XtDisplay (curiw), cmiw- > image, pixmap); 
GetBitmapInfo(newiw); 

ncwiw- > core, width =newiw-> imagc.map_width; 
newiw- > core .height = newiw- > image. map_heighi; 
redisplays True; 

remm redisplay 1 1 XtlsSensitive(current) ! = XtlsSensitive(new); 

} 
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Static void Destroy(w) 
Widget w; 

{ 

ImageWidgct Iw = CIniagcWidget)w; 
Dprintf ( "ImageDestroyNn ") ; 



sutic XtGeomeiryResult QueryGeomcny(w, inicndcd, preferred) 
Widget w; 

XtWidgetGcomcoy *inteDdcd, ♦preferred; 

{ 

register Image Widget iw = (Image Widgci)w; 

preferred- >request_mode = CWWidth | CWHeight; 
preferred- > width ■ iw-> image. map_width; 
preferred- > height = iw-> image. map_height; 
if ( ((intended- > requcst_mode &. (CWWidth | CWHeight)) 
= = (CWWidth I CWHeight)) &A 
intended- > width = = preferred- > width Sl& 
intended- > height == preferred- > height) 
remm XtGcomctryYes; 
else if (preferred- > width == w-> core. width && 
preferred- > height = = w-> core. height) 
remm XtGeometryNo; 

else 

return XtGeometryAhnost; 



static void GetBitmapInfo(w) 
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Widget w; 
{ 

Image Widget iw= (Image Wi'dget)w; 
unsigned int depth, bw; 
Window root; 
int X, y; 

unsigned int width, height; 
char bufTBUFSIZ]; 

if (iw-> image. pixmap != None) { 
if 

(!XGetGeometry(XiDisplayOfObject(w),iw->image.pixinap,&root,&x.«Scy,&width,&heig 
ht,&bw,&depth)) { 

sprinrf(buf, "Image Widget: %s %s \"%s\".", "Could not", 
"get Bitmap geomecry information for Image 
XtNamc(w)); 

XtAppEm)r(XtWidgetToAppIicationContcxt(w). buf); 

} 

iw- > image .map_widtbs'(Dimension)width; 
iw- > image .map_height = (Dimension)height; 

} 

} 

/♦ 

* Action Procedures 
*/ 

static void Noiify(w,event,params,num_params) 

Widget w; 
XEveni *event; 
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String •params; 

Cardinal •numj3arams; 

{ 

Image Widget iw = (lraageWidgci)w; 

XBunonEvem •bunonevent=&eveni- > xbunon; 

ini posn[2] = {buttonevent->x,bunonevent->y}; 

if (iw-> image. map_width< =posn(0] 1 1 posn[0]<0 1 1 

iw-> image. map_hcight< =posn[ll 1 1 posn[l]<0) Dprintf("No 
ImageNotiiy\n"); 
else { 

Dprintf("ImageNotify\n"); 
XtCaJlCallbackList(w,iw- > image. callbacks.posn); 

} 

} 
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Test harness for KJicsFrameSAQ in Klics.SA 

•/ 

^include "xwave.h" 
^include "WicsSA.h" 

void ImpiaicsTestSA(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

int si2ey=SA_WIDTH*SA_HHGHT, 

sizeUV = SA_WIDTH*SA_HOGHT/4; 

short •dst[3] = { 

(short •)MALLOC(si2cof(shon)*si2cY), 
(short •)MALLOC(si2eof(shon)*si2eUV), 
(short *)MALLOC(si2eof(shon)*sizeUV), 

}. *src[31; 

Video video «=(Video)MALLOC(si2eof(VideoRcc)); 
int i. z; 

char rilc_naine[STRLEN]; 

Bits biip; 

Boolean stillvid; 

strcpy(video- > nanie,((XawListRenimStnjct *)call_data)- > string); 
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spnntf (r)le_n2me 7cs % s\0 global- > home .KLICS_SA_DIR, video- > namcKLICS 

_SA_EXT); 

bfp=bop€n(file_name,"r"); • 

bread(&sti]lvid,l.bfip); 

bread(&video- > si2e(2],si2eof(int)»8,bfp); 

video- >data(0]=(shon **)MALLOC(si2eof(shon *) •video- >si2e[2]); 

video- >data(l] = (shon •')MALLOC(sizeof(shon *)*video->si2e(2J); 

video- >dau(2] = (shon '*)MALLOC(si2eof(shon *)*vidco->size[2]); 

video- > disk = False; 

video- > type =YUV; 

video- > si2c[0] =SA_WIDTH; 

video- > si2e[l] =SA_HEIGHT; 

video- > UVsample[01 = 1; 

video-> UVsample[l] = 1; 

video- > trans .type = TRANS_None; 

for(2 = 0;2 < video- > si2e[2] ;z ++) { 

NewFrame< video,!); 

src(0] = video- > data[0]l2]; 

src(l] = video- > data(l]Izl; 

src[2] = video- > data[2][z]; 

KlicsFranicSA(z==0 || stillvid?STILL:SEND.src,dst,bfp); 

SaveFramc(video,z); 

FreeFrame(video,z); 

} 

bclose(bfip); 

video- > next = global- > videos; 
global- > videos = video; 
XtFrec(dstIO]); 
XtFrec(dst(l]); 
XtFree(dst(2]); 
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source/Import Klics.c 



/• 

* Imponing raw KJics binary files 
*/ 

^include "xwave.h" 
^include "Klics.h" 

extern Bits bopenO; 

extern void bcloseQ, breadO, bwriteQ, bflushQ; 

extern void SkipFrameQ; 

extern im HuflReadO; 

extern Boolean BlockZeroO; 

extern void ZeroCocffsO; 

extern int ReadlntQ; 

extern int DecideO; 

extern double DecidcDoubleQ; 

Boolean BoolToken(bfip) 
Bits bfjp; 



Boolean token; 



brcad(&token.l.bfip); 
renim(token); 

} 
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void HuffBlock(block,bfip) 

Block block; 
Bits bfp; 

{ 

ini X. Y; 

for(X = 0 ;X < BLOCK;X + + ) for( Y = 0; Y < BLOCK; Y + + ) 
block(X][Y] =HuffRcad(bfp); 

} 

void PrevBlock(old,addr,x,y,z,oct,sub,channel,ctrI) 

Block old, addr; 

im X, y, z, oct, sub, channel; 

CompCtrl Ctrl; 

{ 

in! X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y++) { 

addr[X][Y] = Access((x < < 1)+X.(y < < I) + Y,oct.sub,Si2e(ctrl- > dst.channel,0)); 
oldpCim =ctrl- > dst- > data[chaimeI](2]Iaddr[X][Y]]: 

} 

} 

void DeltafiIock(ncw,old,delta,stq)) 

Block new, old, delta; 
int step; 
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{ 

int X. Y; 

for(X =0:X < BLOCK;X+ + ) for(Y=0;Y < BLOaC;Y+ +) 

new[X]m = old[X][Y]+dclta[X][Y]*siep+(de]t2(X][Y]!=0?negif(delt2[X][Y]<0,(siep^ 

>>1):0); 

} 

void UpdateBlock(new,addr,z,channel,ctrl) 

int z, channel; 
Block new, addr; 
CompCtrl Ctrl; 

{ 

int X. Y; 

for(X =0;X < BLCX:K;X+ +) for(Y=0; Y < BLOCK;Y+ +) 

Ctrl- > dst- > data (channel] [z] [addr[X] [Y]] =(shon)ncwpC][Y]; 

} 

void ReadKllcsHeader(ctrl) 

CompCtrl ctri; 

{ 

KlicsHeaderRec bead; 
int i; 

Video dst = Ctrl- > dst; 

ftead(&hcad.sizeof(KlicsHeaderRec). 1 ,ctrl- > bfjp- > fjp); 
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Ctrl- > stiJlvid = head. stiJlvid; 

Ctrl- > auto_q = hcad.auio_q; 

Ctrl- > buf_switch = head. buf_switch; 

Ctrl- > quaiii_const=head.quant_consi; 

Ctrl- > ihresh_const = head.ihresh_const; 

Ctrl- > cmp_const= h€ad.cinp_consi; 

Ctrl- >fps= head, fps; 

for(i = 0;i < 5 :i -I- -I- ) Ctrl- > base_factors(i] = head.basc_factors[i] ; 

Ctrl- > diag_factor = hcad.diag_factor; 

Ctrl- > chromc_factor = head . chrome_factor; 

Ctrl- > decide = head. decide; 

strcpy(dst- > name.ctrl- > bin_name); 

dst- > type = head . type; 

dst- > disk - bead .disk; 

dst- > gamma = bead. gamma; 

dst- > rate = head.rate; 

dst- > stans=head.stan; 

for(i=0;i<3;H- +) dst-> si2e[i]=head.sizc[i]; 

fpr(i»0;i<2;i-»- -f ) dst- > UVsample[i] = head. UVsample[i]; 

dst- > trans = head, trans; 

dst- > precision =hcad.precision; 

for(i =0;i < (dst- > type = = M0N0?l:3);i+ -h) 

dst->data[i]=(shon **)MALLOC(dst->si2e[2]»si2eof(short •)); 

} 

void WriteK]icsHeader(ctrl) 
CompCtrl Ctrl; 

{ 

KJicsHeaderRec head; 
int i; 
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head.stillvid = Ctrl- > siillvid; 

head. amo_q= Ctrl- > auio_q; 

head. buf_swiich = crrl- > buf_s witch; 

head. qi:aiit_const= Ctrl- > quant_const; 

head. thresh_const= Ctrl- > thresh_const; 

head. cmp_const= Ctrl- > cmp_const; 

head. fps= Ctrl- >fps; 

for(i = 0; i < 5 ;i + + ) head . base_factors[i] =ctrl- > base_faciors[i] ; 

hcad.diag_factor = Ctrl- > diag_factor; 

head.chrome_factor=ctrl->chromc_factor; 

hcad.decidc=cirl- > decide; 

head, type =ctrl- > dst- > type; 

bead.disk =ctrl- > dst- > disk; 

bead . gamma = Ctrl- > dst- > ganuna; 

hcad.rate =ctrl- > dst- > rate; 

head .Stan = Ctrl- > dst- > start; 

for(i=0;i<3;i + -f) head. size [i]=ctrI-> dst- > size [1]; 

for(i=0;i<2;i-J- -t") head. UVsample[i]=ctrl-> dst- > UVsamplcfi]; 

head .trans «ctrl- > dst- > trans; 

bead.precision sctrl- > dst- > precision; 

fwrite(&hcad.sizcof(KIicsHcaderRec), 1 ,ctrl- > bfp- > fp); 

} 

void KlicsTree(mode,x.y,z,oct,sub,channel,ctrl) 

int mode, x, y, z, oct, sub, channel; 
CompCtil ctri; 

{ 

Block addr, old, new, delta, zero_block={{0,0},{0,0}}; 

double norms[3] = {ctrl->quant_const,ctrl->ihresh_const,ctrl->cmp const}; 

int step; 
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PrevBlock(old.addr,x,y,z,oct,sub, channel, Ctrl); 
if (mode! = VOID) { 

Ca 1 cNorma ls(c irl , oct , sub , channel , norms) ; 
sxep = norms [0] < 1.0?l:(ini)nonns(0]; 
if (mode= = STILL 1 1 BlockZero(old)) { 

if (BoolToken(ctrl- > bfp)) { I* NON_ZERO_STILL •/ 
Dprintf("NON_ZERO_STILL\n"); 
HuffBlock(dclta,ctrl- > bfp); 
DeltaBIock(new , old , delta .step) ; 
UpdateBlock(new , addr,2 , channel , Ctrl) ; 

}else{ 

Dprintf( "ZERO_STILL\n"); 

mode = STOP; /* ZERO_STILL •/ 

} 

}clse{ 

if (!BoolTokcn(ctrl- > bfjp)) { /• BLOCK_SAME ♦/ 
Dprmrf("BL0C3C_SAME\n"); 
mode=STOP; 

}clse{ 

if (!BoolToken(ctrl- > bfp)) { /• ZERO_VID */ 

Dprintf("ZERO_VID\n"); 

ZeroCocffs(ctrl- > dst- > datalchanncl][z] ,addr); 

mode = VOID; 
} else { /* 

BLOCK_CHANGE •/ 

Dprintf("BLOCK_CHANGE\n"); 
HuffBlock(delta,ctrl- > bfp); 
DeltaB]ock(new,old,delta,step); 
UpdatcBlock(new,addr,2,channel,ctrl); 

} 

} 

} 
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}else{ 

if (Block2ero(old)) mode=STOP; 
else { 

ZeroCoeffs(ctrl- > dst- > data[channcl][z] ,addr); 
mode = VOID; 

} 

} 

if (oct>OiSut mode! = STOP) { 

Boolean decend - mode = = VOID?Truc : BoolToken(ctrl- > bfp) ; 
int X, Y; 

Dprintf("x = %d, y=%d, oci=%d sub=%d mode 
%d\n",x,y,oa,sub,mode); 

if (decend) { 

if (mode! = VOID) Dprintf("OCT_NON_ZERO\n"); 
for(Y=0;Y<2;Y++) for(X=0;X<2;X++) 

K]icsTrce(modc,x*2 +X,y*2 + Y,2,oct-l , sub, channel, Ctrl); 
} else if (mode! = VOID) Dprintf("OCT_ZERO\n"); 

} 



void KIicsLPF(mode,r,ctrl) 

CompCtrl Ctrl; 
int mode, z; 

{ 

Block addr, old, new, delta; 

int channel, channels = Ctrl- > dst- > type = =M0N0?1:3, x, y, 
octs_lum=ctrl- > dst- > trans. wavelet.space[0], 

si2e[2] = {Si2e(ctrl->dst,0,0)> >ocisJum+l,Size(ctrl->dst.O,l)> >octsJum+l}; 
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for(y = 0;y<si2e(l];y++) for(x=0;x<si2e[0];x + +) { 
Boolean lpf_loc=Tnie; 

if (mode! = STILL) { 

lpf_loc = BoolToken(ctrl- > bfp); /* 
LPF_LOC_ZERO/LPF_LOC_NON_ZERO */ 

DprintfCTcs\nMpf_loc?"LPF_LOC_NON_ZERO":"LPF_LOC ZERO"); 
} 

if (lpf_loc) for(channcI=0;channel<chaimcls;channel + +) { 
int 

octs=ctrJ->dsi-> trans. wavelei.space{ctrl->dst-> type = = YUV SlSc channel! =071:0], 
X, Y, step, value, bits=0; 

double 

Donns[3] = {ctrl- > quant_const,ctrl- > thresh_const,ctrl- > cmp const}; 

PrcvBlock(old,addr,x.y,z,octs-l,0,channcl,ctrl); 
CalcNonnaIs(ctrl,octs-l ,0,channcl,nomis); 
step = iionns(0] < 1 .071 :(ini)nonns[0]; 
if (mode == STILL) { 
for(bits=0, 

value =((1 < < 8+ctrl- > dst- > precision)-l)/step;valuc! *0;bits+ +) 

value = value > > 1; 
for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) 

delta[X][Y] =ReadImCbits,ctrl- > bfp); 
De]tafilock(new,old,delta,step); 
UpdateBIock(new,addr,z,channel,ctrl); 

}clse{ 

if (BoolTokcn(ctrl->bfp)) { /♦ 
LPF_ZERO/LPF_NON_ZERO •/ 

Dprintf("LPF_NON_ZERO\n"); 
HuffBlock(delta,ctrl- > bfp); 
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DeltaBlock(new,old,dclta,siq)); 
Updat£Block(ncw , addr ,2 .channel .Ctrl) ; 
} else Dprintf("LPF_ZERO\n"); 



} 

} 

void KIicsFrame(ctrl,z) 

CompCtrl Ctrl; 
int z; 

{ 

Video dst=ctrl->dst; 

int sub, channel, x, y, mode = Ctrl- > still vid 1 1 z==0?STILL:SEND, 
octsJum=dst- > trans.wavelet.spacefOJ, 

si2e[21 = {Si2e(dst,0,0)> > l+octsJuin,Size(dst,0,l)> > l+octs_lum}; 

NewFrame(dst,z); 

CopyFrame(dst,z-l,z,ctrl->stillvid II z==0); 
if (z! =0 && Ctrl- > auto_q) { 

Ctrl- > quani_const-H = (double)(HISTO/2-^ReadIm(HISTO_BITS,ctrl- > bfip))»HISTO_DE 
LTA*2 .0/fflSTO-HISTO_DELTA; 

Ctrl- > quant_const = Ctrl- > quant_const < 0.070.0: Ctrl- > quant_const: 

Dprintf( "New quant %An",ctrl->quant_const); 

} 

KlicsLPF(mode,2,ctrl); 

for(y=0;y<size(l];y-»--l-) for(x=0;x<size{0];x-H-) { 
if (BoolToken(ctrI- > bfp)) { 
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Dprinif( "LOCAL_NON_ZER0\D") ; 

for(chai:nel = 0;chamiel<(dst->type= =M0N0?l:3);channel+ +) { 
int ocis = dst- > trans. wavclet.space[dst- > type = = YUV 

&& channel! =0?1:0]; 



if (BoolToken(cirl- > bfjp)) { 

Dprintf( "CHANNEL_NON_ZERO\n"); 

for(sub= l;sub < 4;sub + + ) 

K]icsTrec(modc,x,y,z,octs-l,sub.channel.ctrl); 
} else Dpruitf("CHANNEL_ZERO\n"); 

} 

} else Dprintf("LOCAL_ZERO\n"); 



void IraponKlics(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

char rile_iiaine[STRLEN]; 
CompCtrlRec Ctrl; 
ia i, z; 



ctrl.dst=(Vidco)MALL(X:(si2eof(VideoRec)); 
strcpy(ctrI.bin_narae,((XawLisiRetuniStruct •)call_dau)- > string); 

sprintf(file_name," %s%s/%s%s\0", global- > home,KlJCS_DIR,ctrl.bin_naine,KLICS_EX 
T); 

ctrl.bfp = bopen(fiIe_name, "r"); 
ReadKlicsHeader(&cirI); 
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if (ctrl.dsi->disk) SaveHeader(ctrl.dst); 
for(z=0;z<ctrl.dst->si2ef2];z + +) { 

if (z*=0 1 1 ! Ctrl. buf_s witch) KJicsFrame(&ctrl.z); 

else { 

if (BoolToken(ctrl.bfp)) KlicsFrame(&ctrl.z); 
else SldpFrame(ctrl.dst,z); 

} 

if(2>0){ 

SaveFrame(ctrl.dst,2-l); 
FrecFrame(ctrl . dst.z- 1 ); 

} 

} 

SavcFranic(ctrl.dst,ctrl,dst- > sizc[2]-l); 
FreeFrame(ctrl.dst,ctrl.dst- > si2c[21-l); 
bclosc(ctrl,bfp); 

ctrl.dst- > ncxt= global- > videos; 
global- > videos =ctrl.dst; 



Copied from 10340491 on 04/01/2005 



PCT/GB94/00677 



source/lmponKJicsSA.c 



* Imponing raw Klics binary files 

* Stand Alone version 

^include "KlicsSA.h" 

exiera void ConvolveO; 

/* useftil X definitions •/ 
typedef char Boolean; 
^define True 1 
#dcfinc False 0 
#defme String char* 

extern int HuffReadSAQ; 

extern Boolean BlockZeroSAQ; 

extern void ZeroCocffsSAO; 

extern ini ReadlntSAQ; 

extern int DecideSAQ; 

extern double DecideDoubleSAQ; 

Boolean BoolTokenSA(bfp) 

Bits bfjp; 

{ 
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Boolean token; 

bread(&token,l,bfp);' 
return(token); 

} 

void HuffBlockSA(block,bfp) 

Block block; 
Bits bfp; 

{ 

int X. Y; 

for(X =0;X < BLOCK;X+ +) for(Y=0;Y < BLCXTK; Y+ +) 
blockpC][Y] = HuffRcadSACbfip); 

} 

void PrcvBIockSA(old,addr,x,y,oct,sub,chaiinel,dst) 

Block o}d, addr; 

int X, y, oct, sub, channel; 

short *dst(3]; 

{ 

int X. Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y++) { 

addr[X][Y]=AccessSA((x< < 1)+X,(y< <l)+Y,oct,sub,channel); 
old[X][Y] =dst(channcl][addrpq[Y]l; 

} 

} 
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void DeluBlockSA(new,old.delta.siep) 

Block new, old, delta; 
int step; 

{ 

inl X. Y; 

for(X = 0;X < BLOCK;X + + ) for(Y=0; Y < BLOCK; Y + +) 

new[X][Y] = oldpq[Y] +delta[X][Y]*step4-(dcltapC][Y]! =0?negif(delta[X][Y] < 0,(step-l) 

>>l):0); 

} 

void Upd2tcBlockSA(new,addr,chanDcl,dst) 

int channel; 
Block new, addr, 
short •dst[3]; 

{ 

int X. Y; 

for(X =0;X < BLOCK;X+ +) for(Y=0;Y < BLOCK;Y+ +) 
dst(channcl]Iaddrpq[Y]] =(short)ncw(X]IY]; 

} 

void KJicsTrecSA(mode,x,y,oct,sub,channcl,dst,bfp,quani_const) 

int mode, x, y, oct, sub, channel; 
shon *dst(3]; 
Bits bfp; 
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double q\iant_const: 

I 

Block addi, old, new, delta. 2ero_block={{0,0},{0,0}}; 
double norms{3] = {quant_const,thresh_const,cmp const}; 

int step; 

PrevBlockSA(old,addr,x,y,oct,sub,chaiinel,dst); 
if (mode! = VOID) { 

CalcNormalsS A(oct , sub , channel , norms , quant const) ; 
step = nonnsfO] < 1 .071 :(ini)nonns{0); 
if (niode= = STILL 1 1 BlockZero(old)) { 

if (BooITokenSA(bfp)) { /• NON_ZER0_STILL */ 
Dprintf("NON_ZERO_STILL\n'): 
HufffilockSA(dclta,bfp); 
DeltaBlockSA(new,oId,delta,step): 
UpdateBIockS A(new ,addr, channel ,dst); 

}clse{ 

Dprintf("ZERO_S'nLL\n"); 

mode = STOP; /• ZERO_STILL */ 

} 

}elsc{ 

if (!BoolTokcnSA(bfp)) { /• BLOCK_SAME */ 

Dprintf(-BLOCK_SAME\n"): 

mode=STOP; 
}else{ 

if (!BoolTokenSA(bfp)) { /• ZERO_VID •/ 

Dprintf("ZERO_VID\n"); 

ZeroCoeffsSA(dst[channsl] ,addr); 

mode = VOID; 
} else { /* 

BLOCK_CHANGE •/ 
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DprintfC "BLOCK_CHANGE\n") ; 
HuffBlockSA{delta,bfp); 
DeltaBlockSA(ncw.old,dclta,sicp); 
UpdaicBlockSACnew.addr.channel.dst); 

} 




}else{ 

if (BlockZeroSA(old)) mode = STOP; 
else { 

ZeroCoeffsSA(dsi[channell,addr); 
mode = VOID; 

} 

} 

if (oct > 0 &A mode! = STOP) { 

Boolean decend - mode = « VOID?Truc:BoolTokenSA(blp); 
int X. Y; 



DprintfCx= %d, y = %d, oct=%d sub=%d mode 
%d\n",x,y,oct,sub.mode); 

if (decend) { 

if (mode! = VOID) Dprintf("OCr_NON_ZERO\n"); 
for(Y=0;y<2;y++) for(X»0;X<2;X++) 



KlicsTreeSA(mode,x*2+X,y*2+Y,oct-l,sxib,channel,dst,b^,quant_const); 
} else if (mode! = VOID) Dprintf("OCT_ZERO\n"); 

} 

} 



void KlicsLPF_SA(mode,dst,bfp,quant_const) 
ini mode; 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT;GB94/00€77 



- 171 - 



shon •dst[3]; 
Bits bfip; 



double 



quani_consi; 



Block addr, old, new, delta; 
int channel, channels=3, x, y, 
ocuJum=3, 



si2e[2] = {SA_WIDTH> >ocisJum+l,SA_HEIGHT> >ocisJum+l}; 
for(y=0;y<si2e[l];y++) for(x-0;x<sizc(0];x++) { 



if (mode! = STILL) { 

lpfJoc=BoolTokciiSA(bfip); /• 
LPF_LOC_ZERO/LPF_LOC_NON_ZERO •/ 

Dprintf(" %s\nMpf_loc?"LPF_LOC_NON_ZERO": "LPF_LOC_ZERO"); 
} 

if Opfjoc) for(cb£nnelBO;channel<chanDels;cfaannel++) { 
int octs=chamiel!=0?2;3, 

X, Y, step, value, bits=0; 



PrevBlockSA(old,addr,x,y,octs- 1 ,0,channel.dst); 
CalcNormalsSA(octs- 1 ,0,channel , norma , quant_const) ; 
step = nonns[0] < 1 .0? 1 : (int)nonns(O] ; 
if (mode == STILL) { 
for(biis=0, 



vaiue=((l < <8+SA_PRECISI0N)-l)/step;value!=0;bits++) 
value = value > > 1; 



Boolean 



lpfJoc=Tnic; 



double 



norms[3] = {quani_const,thresh_const,cmp_const}; 
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for(X=0;X< BLOCK;X+ +) for(Y=0;y < BLOCK;Y+ +) 

delt2{X][Y] =ReadlmSA(bits,bfp); 
DeltaBlockSA(new.old,delta,step); 
UpdatcBlockSA(ncw.addr,chanDcl,dst); 

}else{ 

if (BooITokenSA(bfip)) { /* LPF_ZERO/LPF_NON_ZERO 

*/ 

Dprintf("LPF_NON_ZERO\n"); 
HuffBlockSA{dclta,bfip); 
DeltaBlockSA(new,old,delta,step); 
UpdateBlockSA(new,addr,channcl,dsi); 
} else Dprinrf("LPF__ZERO\n"); 

} 

} 

} 

} 

void K]icsFrameSA(mode,sn:,dst,bfp) 

int mode; 

short *src(3], •dst(3]; 

Bits bfp; 

{ 

int sub, channel, x. y, i, 
octsJum=3, 

si2e[2] = {SA_WIDTH > > 1 +octs_lum,SA_HOGHT> > 1 +octs_lum}; 
double quani_consi; 

bread((char '*)&quant_const,si2cof(double)*8,bfp); 
K]icsLPF_SA(mode,dst.bfp.quara_const); 
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for(y = 0;y<si2e[l];y++) for(x=0:x<si2e[01;x + +) { 
if (BoolTokenSA(bfp)) { 

Dpriiitf("LOCAL_NON_ZERO\n''); 
for(chaiincl=0;channel<3;chaniiel++) { 
int ocis= channel! =0?2:3; 

if (BoolTokenSACbfp)) { 

Dprinrf("CHANNEL_N0N_ZERO\n"); 
f or(sub - l;sub<4;sub++) 

KjicsTrccSA(incxie,x,y,octs-l ,sub,channel,dsi,bfp,quant const); 

} else Dprintf("CHANNEL_ZERO\n"); 

} 

} else Dprintf("LOCAL_ZERO\n'); 

) 

for(cbannel=0;chanDel<3;channel + +) { 
int 

frame_si2e[2] = {SA_WIDTH> >(channel==0?0:l),SA_HEIGHT> >(channcl==0?0:l 
)>. 

lTame_arca - fraine_si2e{0] •framc_size( 1 ] ; 

for(i=0;i<fTamc__area;i++) src[channel][i]=dsi[channel][i]; 
Convolve(src[channcl] .False, franie_si2C .channel = = 0?3 : 2 ,0); 
for(i =0;i < fraine_aTea;i+ +) 
src(channel](i] = src[channelj[i]> > SA_PRECISION; 
} 



Copied from 10340491 on 04/01/2005 



PCT/GB94/006T7 



source/ImtFrame.c 



Initialise frame structure for Frame command widget 



^include "../include/xwave.h" 

#defme FRAMEJCONS 14 

^define TRANS_MENU 1 

#define COMP_MENU 2 



extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern String 
extern void 



CopyVideoO: 

CompareO; 

NAO; 

FrameDestroyO; 

ExamineO; 

FramePointYNO; 

FiamelnfoO; 

FrameMergeO; 

MovieO; 

PostScriptO; 

SelectO; 

SpectrumO; 

NewPointO; 

TransformO; 

CompressO; 

•VideoCurreniListO; 

KlicsSAO; 



void InitFrame (w,cIosure,call_daia) 
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Widget w; 

caddr t closure, call data; 



{ 

XawListRerumStnjct •name = (XawListRenmiSmict *)call_data; 
Video video ="FindVidco(name- > string, global- > videos); 
Frame frame =(Frame)MALLCXr(si2eof(FramcRcc)); 
Widget shcU[2], form, widgets[FRAME_ICONS], 
traiis_widgets[TRANS_MENU], comp_widgets(COMP_MENU]; 
Arg args[7]; 
Pixmap pbunap; 

inl view[21 = {15-f video- >si2e(0], 15 +video->si2e[l]); 
Fonnltem itemsQ>{ 

{"fnn^cancer, ■fTamc_close' 

{"frm_copy", "copy", 

{"frai_exam", 'examine", 

{ "firm j)oint_yn" , "point_^ " , 

{ "frm_transfonn", "transform" , 
4 ,0,FW_icon_bution, "fnn_trans_menu " } , 

{"frm_info_yn', "info", 
5,0,FW_icon,NULL}, 

{"frm_merge", "merge", 

{ " fnn_comprBss " , * code " , 
7 ,0,FW_icon_bunon, "fnn_comp_menu"} , 

{"&m_movie", "movie", 

{ "firm jwstscript' , "postscript" , 

{"fnn_comparc", "compare", 

{"frm^view", NULL, 
0, 1 ,FW_view,(String)view}, 

{"firmjabcl", video- > name, 

{"frm_colors", "colors", 

}; 



0,0,FW_icon,NlJLL}, 
l,0,FW_icon,NULL}, 
2.0,FWJcon,NULL}, 
3.0,FWJcon,NULL}, 



6,0,FWjoggle.NULL}. 



8,0,FWJcon,NULL}, 
9.0.FW_icon,NULL}, 

10,0,FWjcon,NULL}, 



0,12,FWJabel,NULL}. 

13.12,FW_icon,NULL}. 
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Selection sel = (SeleciioD)MALLOC(si2eof(SeleciJiem)); 
Menuliem trans_nienu{TRANS_MENUl = { 

{"traiis_Wavelct".sffleBSBObjectClass,"Wavclei".NULL}, 

); 

Menultcm comp_mcnu(COMP_MENU] = { 

{ " corap_KLICS " , sraeBSBObjectClass , "KLICS " ,NULL} , 
{"comp_KlJCS_SA',siiieBSBObjectClass,"KLICS SA'.NULL}. 

}; 

XtCallbackRec frame_caUD = { 

{FranieDestroy,(caddr_t)frame}. {Frec.(cadd[r_t)scl}, {NULL.NULL}. 

{CopyVideo.(caddrj)video}. {NULL.NULL}. 

{Examine,(caddr_t)fTame), {NULL.NULL}, 

{FraniePomtYN,(caddr_t)frame}, {NULL.NULL}, 

{FrameIiifo,(caddr_t)frame), {NULL.NULL}, 

{FramcMergc,(caddr_t)fTaine}, {NULL.NULL}, 

{Movie, (caddrj)frame}, {NULL.NULL}. 

{PostScript,(caddrj)frame}, {NULL,NULL}. 

{Select,(caddrj)sel}, {NULL.NULL}, 

{Spectrura,(caddrj)frame}, {NULL,NU1X}, 
}. image_callD"{ 

{NcwPoim,(caddr_t)franic}, {NULL,NULL}, 
}, trans_caJ10 = { 

{Traiisform,(caddrj)video}, {NULL.NULL}, 
}. comp_callD={ 

{Compress . (caddr_t)video} . {NULL.NULL} . 

{K]icsSA.(caddr_t)video}. {NULL,NULL}. 

}; 

Colormap cmap = ChamjelCmap(framc- > channel = (video- > type = = MONO 
j j video- > trans.type! =TRANS_None)?0:3.video- > type.video- > gamma); 

Dprintf("InitFrame\n"); 
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sel- > name = "video_Compare"; 

sel-> button = 'fnn_compare"; 

sel- > list_proc = VideoCurreniJJsi; 

sel- > action_naine = "Compare videos"; 

sel- > action_proc = Compare; 

sel- > action_closure=(caddr_t)video; 

frame- > video = v ideo ; 

framc->shcll = ShcllWidgct("frm_sheU",g]obal->toplevel,SWjop,cmap,NULL); 
fonn=FonnatWidget("frm_foim",fTame-> shell); 
frame- > image_widget= NULL; 

frame- > msg ■ NULL; 

frame- > zoom =0; 
frame- > frame =0; 

frame- > poim_s witch = False; 
frame- > point_merge = False; 

frame- > point = (Poini)MALLOC(si2eof(PoimRec)); 

frame- > point- > locaiion[0] =0; 

frame- > point- > location[l] =0; 

frame- > point- > usage « 1 ; 

frame- > point- > ncxt=global- > points; 

global- > points = fiame- > point; 

frame- > palette =0; 

frame- > next = global- > frames; 
global- > frames = frame; 

GctFramc(video,frame-> frame); 
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pixmap = Up<latelin2ge(fTanie); 

FillFonii(form,FRAMEJCONS. items. widgeis.franie call); 
shcU{0] = Shell Widgel( ''fnn_trans_menu •• , widgets[4] , S W_inemi, NULL.hOJLL); 
FilLMenu(she]I(0],TRANS_MENU,trans_menu,trans widgets.trans caU); 
shell[ 1 ] = ShcllWidgei("fTin_comp_menu ^ widgeu(7] ,SW_memi,NULL,NULL); 
FUlMenu(shell[l],COMP_MENU,coinp_menu,corap_widgeis,comp call); 

frame- > poiDt_merge_widget= widgets[6]; 

XtSetArg(argsIO] , XtNbitmap .pixmap) ; 
XiSeiArg(argsIl],XiNwidth, video- > sizelO]); 
XtSetArg(args[2],XtNheight, video- > si2e[ll); 
XtSe tArg(args[3],XlNcal]back,image_call); 

frame- > image_widget = XtCreat£ManagedWidget("fhn_iinage", image WidgetClass, widget 
s(ll],args,FOUR); 

XtS€tSensitivc(frame- > image_widget,False); 

XtSetSensitive(widgcts[ 13], Pseudocolor = = global- > visinfo- > class); 

XtPopup(frame- > shell.XlGrabNone); 

} 

Video Find Video<name, video) 

String name; 
Video video; 

{ 

if (video==NULL) renim(NULL); 
else if (!strcmp(name,video->name)) retum(video); 
else rctum(FindVideo(namc,video->ne>ct)); 

} 
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IniiiaJise menu structure for Main command widget 



^include "../includc/xwavc.h" 

/♦ Save extcms */ 

extern void VideoSavcQ; 

extern void VideoXimSaveQ; 

extern void VideoDTSaveQ; 

extern void VidcoMacSavcQ; 

extern void VideoHexSaveQ; 

/* List extcms */ 

extern String ♦VideoListQ; 

extern String ♦VidccDropListO: 

extern String *VideoCurrentListO: 

extern String ♦KlicsListQ; 

extern String ^KUcsListSAQ; 

/* Import extems */ 

extern void ImportKlicsQ; 
extern void ImpKlicsTestSAQ; 

/* Main extems •/ 
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extern void 


SeleciQ; 


extern void 


VideoCleanQ; 


extern void 


QuitO; 


extern void 


VideoLoadQ; 


extern void 


IniiFrameQ; 


extern void 


VidecDropO; 


extern void 


PlotGraphO; 



/* Function Name: InitMain 

* Description: Create main memi bunon & sub-menus 

* Argximenis: none 

* Remms: none 
•/ 

#derme MAIN_MENU 7 
#denne SAVE__MENU 5 
li'defme IMPT_MENU 2 

InitMainO 

{ 

Widget fonn=FormatWidget("xwavc_form",global->topleveI), widgetsdJ, 

main_shell, main_widgets{MAIN_MENU], 

save_shell, save_widgets[SAVE_MENU], 

impt_sbell, impt_widgeis{IMPT_MENU]; 
Fonnltem itcmsD={ 

{ "xwaveLogo" , "main" ,0,0,FW_icon_bunon, "xwave_main_sh"}, 

}; 

MenuJtem main_menuQ = { 

{"main_Open",smeBSBObjeaClass."Open a video ".NULL}, 
{"main_Attach',smeBSBObjectClass." Attach a frame ".NULL}, 
{"main_Save",smcBSBprObjectClass,"Save a video", "xwave save sh"}, 
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{"maiD_Drop".smeBSBObjectClass,"Drop a video". NULL), 
{•in2m_CIean".smcBSB0bjcctClass. "Clean out videos'.hOJLL}, 
{ 'mam_lmpon",sraeBSBpiObjectClass, "Impon a 
video xwavc_iinpt_sh "} , 

{ "main_Quit " .smcBSBObjeciClass, "Quit " .NULL} , 
}, save_meiiuO={ 

{"save_mcnu_vid",smeBSBObjectClass,"Savc xwave video",NULL}, 
{•'save_menu_xim",smeBSBObjectClass,"Save xim video ".NULL), 
{"save_nienu_dt",smcBSBObjectaass."Save DT image", NULL}, 
{"save_menu_mac",smeBSBObjectClass,"Save mac video", NULL}, 
{ " save_memi_hex " , smeBSBObjectClass , "Save hex dump " .NULL} , 
}, impi_mcnuD'={ 

{ " impi_menu_kllcs " , smeBSBObjectClass , "KLICS " ,NULL} , 

{ "in^t_menu_k]icsSA" , smeBSBObjectClass, "KLICS SA" .NULL} , 

}; 

static Selectltem selectionQs{ 

{"video_Open"."xwaveLogo",VideoList,"Open a 
video",VideoLoad,NULL}, 

{"firame_Atiach","xwaveLogo".VideoCuiTcntList. "Attach a 
frame",InitFrame,NULL}, 

{ " video_Drop' , "xwavcLogo" . VideoDropList, "Drop a 
video" , VideoDrop.NULL}, 
}, save_selD={ 

{"save_vid' . "xwaveLogo", VideoCurrentList. "Save xwavc 
video", VideoSave,NULL} , 

{ "save_xim" , "xwaveLogo" .VideoCurrentList, "Save xim 
video" , VideoXimSave,NULL} , 

{"save_dt"."xwaveLogo",VideoCurTcntList,"Save DT 
image " , VideoDTSave , NULL} , 

{ "savc_mac " , "xwavcLogo" , VideoCuTTcmList, "Save mac 
video" , VideoMacSave,NULL} , 

{ "save_hex" , "xwaveLogo". VideoCurrentList, "Save hex 
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dump" . VideoHcxSave.NULL} , 
}. impt_sein = { 

{ " impt_kJics " , "xwaveLogo " .KJ icsLisi, " Import 
KLICS " . ImportKJics, NULL} , 

{"impt_ldicsSA"."xwaveLogo",KlicsListSA, "Import KLICS 
S A ' . ImpKJ icsTestS A,NULL} , 

}; 

XtCallbackRec main_callD = { 

{Select,(caddr j)&selection(0] } , {NULL,NULL} , 

{Seleci,(caddr_t)&selecuonIl]}, {NULL.NULL}, 

{Selea,(caddi_t)&selection(2]}, {NULL,NULL}, 

{Videoaean,(caddrj)NULL}, {NULL.NULL}. 

{Quit,(caddrj)NULL}. {NULL.NUUL). 
}, save_calIO={ 

{Select,(caddrj)&save_sel[0]}, {hfULL,NULL} , 

{Seleci,(cad<lrj)&save_sel[l]}, {NULL.NULL). 

{Select,(caddr_t)&5ave_scl[2]}, {NULL,NULL}, 

{Sclect.(caddrj)&save_scl[31), {NULL,NULL}, 

{Sclect.(caddrj)&save_scl[4]}, {NULL,NULL}, 
}, impt_callO={ 

{Scleci,(caddr_t)&iinpt_sel[0]}, {NULL,NULL}. 

{Sclcct,(caddrj)&iinpt_scl[l]}. {NULL.NULL}. 

}; 

Dprintf("InitMaiii\n"); 
FillFonn(fonn,ONE,itcins,widgets,NULL); 

mam_shcU=ShenWklget("xwave_mam_sh",wkjgets[0],SW_meiiu,NULL,NULL); 
save_shcll = ShellWidgeiCxwave_save_sh" ,maiB_shcIl,SW_menu,NlJLL,NULL); 
unptjhell = ShenWidget("xwave_impt_sh",mam_shcll,SW_mcnu,NULL,NULL); 
FiIIMenu(main_sbe!l,MAlN_MENU,main_mcnu,main_widgcts,maiii_call); 
FiIIMenu(save_shcll,SAVE_MENU,save_menu,save_widgets,save_call); 
FillMenu(impt_shell,IMPT_MENU,impt_menu,impt_widgets,impt_call); 

} 
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source/Kb'csS.c 



/• 

Full siiJl/video Knowles-Lewis Image Compression System utilising HVS 
propenies 

and delta-tree coding 

*/ 

^include "xwave.h" 
^include 'Klics.h" 
^include <math.h> 

exteni Bits bopenQ; 

extern void bcloseO, breadO. bwriteO, bflushQ; 

extern WritcKllcsHcaderO; 

/* token modes (empty) ♦/ 

#define EMPTY 0 

#defme CHANNEL.EMPTY 1 

#defme OCTAVE_EMPTY 2 

#defme LPF_EMPTY 3 

Mefine FULL 4 

typedef struct ^HistRec { 

int bits. octbits[3][5], Ipf, activity, target, token(TOKENS], coeffll29]; 

double q^const; 
} HistRec, *Hist; /* history record */ 

/* Function Name: Access 
* Description: Find index address from co-ordinates 
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* Arguments: x, y - (x,y) co-ordinates 

oct, sub, channel - octave, sub-band and channel co-ordinates 
*■ width - image data width 

* Reoims: index into vid->data[channel]D [index] 
•/ 

ini Access(x.y,oct,sub,widih) 
int x, y, oct, sub, width; 
{ 

rctum(((x< < l)+(sub> > l)+width*((y< < l)+(l&sub)))< <oct); 

) 

/* Function Name: LastFrame 

* Description: Find last frame encoded 

* Arguments: z - index of cuneni frame 

* hist - history records 

* Reouns: index of previous frame 
*/ 

int LastFrame<z,hist) 

int z; 
Hist hist; 

{ 

int i=z-l; 

while(hist[i].bits= =0 &A i>0) i-; 
retum(i<0?0:i); 

} 
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/* Function Name: Decide 

Description: Calculate value representing the difference between new and old 

blocks 

* Arguments: new, old - blocks to compare 

* mode - differencing algorithm {MAXIMUM | SIGABS | 
SIGSQR} 

* Rerunis: difference value 
*/ 

iiU Decide(new,old,modc) 

Block new, old; 
int mode; 



int X, Y, sigmas=0; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;y++) { 
im n_o=newpC][Y]-oldpC][Yl; 

switch(mode) { 
case MAXIMUM: 

sigma= sigma > abs(n_o)?sigma:abs(n_o); 

break; 
case SIGABS: 

sigma +=abs(n_o); 

break; 
case SIGSQR: 

sigma +=n_o*n_o; 

break; 

} 
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remni(sigina); 



/• Function Name: DecideDoublc 

* Description: Calculates normal w.r.t differencing aigorithni 

* Arguments: norm - normal value 

* mode - differencing algorithm {MAXIMUM | SIGABS | 
SIGSQR} 

* Returns: new normal value 
*/ 

double DecideDouble(norm,mode) 

double nonn; 
int mode; 



switcb(mode) { 
case MAXIMUM: 

ret -nonn; 

break; 
case SIGABS: 

rct=4.0*nonn; 

break; 
case SIGSQR: 

rei=4.0*norm*nonn; 

break; 

} 

rcnjra(ret); 



} 
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Boolcan Dccision(ncw, old, nonn. mode) 

Block new, old; 
double norm; 
ioi mode; 

{ 

return((double)Decide(new,old,mode) < = DccideDouble(Dorm,modc)); 

} 

/♦ Function Name: Feedback 

* Description: CalcuJates new target activity from target hits and historical values 

* Argimients: hist - histoiy records 

* cuzT - cunent frame 

* taps - size of histoiy window 

* Returns: target activity 
*/ 

int Feedback(hist,curT,taps) 

int curr; 
Hist hist; 
int taps; 

{ 

int prev=cuir, i; 
double ratio "O; 

for(i=0;i<taps && prev!=0;i++) { 
prev = LastFrame(prev , hist) ; 

ratio+ = (double )hist[prev] .activity/(double)(hist[prev] .bits-(prev = =0?hist[0] .IpfrO)); 
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} 



retuni((inr)(rauo»(doubie)hist(curr].urget/(double)i)); 



/* Function Name: Filter 

* Description: Calculates new q_consi filtering historical values 

* Arguments: hist - history records 

* curr - current frame 

* taps - size of history window 

* filter - index to filter 

* Remms: q_const 



double Filter(hist,curT,ups,niter) 

int out; 
Hist hist; 
int taps, fJter; 

{ 

double mac=histIcun].q_const, sum =1.0, coefF=1.0; 
int i, prev=curr; 

for(i =0;i < taps && prcv! =0;i+ +) { 
prcv= Las tFrame(prev .hist); 
coeff= filter = =0?0:coeff/2.0; 
mac + =hlstlprev].q_cbnst*coeff; 
sum+=coeff: 

} 

remm(raac/sum); 
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/* Funciion Name: Huffman 

* Description: CaJculaies the number of bits for the Huffman code representing 
level 

* Arguments: level - level to be encoded 

* Returns: number of bits in codeword 
V 

int Huffman(lcvel) 

int level; 

{ 

rcnmi(lcvel= =0?2:(abs(lcvcl) <3?3:l+abs(lcvel))); 

} 

/• Function Name; HufiCodc 

* Description: Generates Hufbian code representing level 

* Arguments: level - level to be encoded 

* Remms: coded bits in char's 
•/ 

unsigned char *HuffCode<level) 

int level; 

{ 

unsigned char *bytes = (unsigned char *)MALLOC((7+Huffman(level))/8); 

byies(0] = (abs(level) < 3?abs(Ievel):3) | (level < 0?4:0); 
if (abs(lcvcl)>2) { 

int index=(7-i-Hufftnan(level))/8-l; 
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byt£s(iDdex] = bytesf index] 1(1 < <CHuffmaD(level)-l)%8); 

} 

return(bytes); 

} 

unsigned char •CodeInt(number,bits) 

int number, bits; 

{ 

int len=(7+bits)/8; 

unsigned char *byies = (unsigned char *)MALLOC(len); 
int byte; 

for(byte -0;bytc < len;byte+ +) { 
bytcs[byte] =Oxff&number; 
number = number > >8; 

} 

renim(byies); 

} 

int Rcadlnt(bits,bfp) 

int bits; 
Bits bfp; 

{ 

int len-(7+bits)/8; 
unsigned char bytesflen]; 
int byte, number =0; 

brcadCbytes.biis.biip); 
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for(bytc=0;byie < len;byte+ +) 

number = number J ((int)byies[byte] < < byie*8); 
number = (number < <$i2eof(mt)*8-biis)> >si2eof(ini)*8-biis; 
retum(number); 

} 

/* Function Name: HuffRcad 

* Description: Read Huffman encoded number from binary file 

* Arguments: bfp - binary file pointer 

* Renims: decoded level 
*/ 

int Hufmead(bfp) 

Bits bfp; 

{ 

int value; 

unsigned char byte; 
Boolean negative = False; 

bread(&bytc.2,bfp); 
value =(int)byte; 
if (byte= = '\0') renim(0); 
else { 

brtad(&byte,l,bfp); 
negative = (byte! = '\0*); 

} 

if (value < 3) renim(negif(negative,value)); 
for(bytc-'\0*;byte = -'\0';value++) bread(&bytc,l,bfip); 
rctum(ncgif(ncgative , value- 1 )); 
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/* Function Name: Quaciize 

• Description: RMS style quantizer 

• Arguments: data - unquantised number 

• q - quantizing divisor 

• level - quantised to level 

• Returns: quantized data & level 
*/ 

int Quantize(data,q, level) 
int data, q. * level; 
{ 

int mag_level=abs(data)/q; 
*level = negif(data < 0,mag_level); 

renin)(Degif(data < 0,magjevcl*q+(magjevel! »0?(q-l) > > 1 :0))); 

} 

/* Function Name: Proposed 

* Description: Calculates proposed block values 

* Arguments: pro - proposed block 

* lev - proposed block quantized levels 

* old, new - old and new block values 

* decide - decision algorithm 

* norms • HVS normals 

* Remms: ncw= =0, proposed values (pro) and levels (lev) 
•/ 

Boolean Proposed(pro,lev,old,new.decide, norms) 
Block pro, lev. old, new; 
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int 



decide; 



double 



nonns[3]; 



{ 

Block zero_block = {{0,0},{0,0}}; 

int X, Y, step = norms{0] < l.O?l:(int)nonns[0]; 

Boolean zero = Decision(ncw,2ero_block,nonns[ 1] .decide); 

for(X = 0;X < BLOCK;X + + ) for(Y = 0; Y < BLOCK; Y + + ) 

pro[X][Y] = zero?0:old(X][Y] +Quantize(new[X]m-old[X][Y].stcp,&acvPC][Y])); 
retuin(zero); 

} 

/♦ Funciion Name: ZeroCoeffs 

* Description: Zero out video data 

* Arguments: data - image dau 



addr - addresses 



Remrns: 



zeros data[addrDD] 



*/ 



void ZeroCoefTs(data,addr) 



short *data; 



Block addr; 



int X. Y; 



for(X =0;X < BLOCK;X+ +) for(Y =0; Y < BLOCK;Y+ +) 
data(addr[X]m]=0:. 
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/• Funciion Name: BlockZero 

• Description: Test if all block values are zero 

• Arguments: block - block under test 

• Rcmms: block = =0 



Boolean BlockZero(block) 

Block block; 

{ 

int X, Y; 

Boolean 2010= True; 

for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y++) 

if (blockram! =0) zero=False; 
retuni(2cro); 

} 

/* Function Name: SendToken 

* Description: Increments token frequency 

* Arguments: token - token to be transmitted 

* channel, sub, oct - co-ordinates 

* Ctrl - control record for compresssion 

* hist - history record 

* empty - zero state {EMPTY | CHANNEL_EMPTY | 
OCTAVE_EMPTY | LPF_EMPTY | FULL) 

* branch - branch of tree (0-3) 

* Returns: encodes token 
*/ 

void SendTokcD(token.cbannel , sub , oct , Ctrl , hist, empty , branch) 
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ini token, channel, sub, oa, "empty, branch; 
CompCtrl Ctrl; 
Hist hist; 

{ 

inl full = FULL, i; 
String 

token_namerrOKENS] = { "ZEROJTILL" . 'NON_ZERO_STILL" , "BLOCK_SAME" , "ZE 
RO_VID", •'BLOCK_CHANGE'. 

"LOCAL_ZERO" . "LOCAL_NON_ZERO", "CHANNEL_ZERO" , "CHANNEL_NON_ZE 
R0","0CT_ZERO","0CT_NON_ZER0". 

"LPF_ZERO" . "LPF_NON_ZERO' , "LPF_LOC_ZERO". "LPF_LCX:_NON_ZERO") ; 

switch(*cmpty) { 
case EMPTY: 

if (token! = ZERO_STILL && token! = BLOCK_S AME) { 

ScndToken(LOCAL_NON_ZERO,channcl,sub,oct,ctrl,liist,&ftill,branch); 

for(i=0;i < channel;! + +) 
SendTokcn(CHANNEL_ZERO,i,sub,oct,ctrl,hist,&fiiII,branch); 

•empty = CHANNEL_EMPTY; 

SendToken(token,channel, sub ,oct, Ctrl ,hist, empty , branch) ; 

> 

break: 

case CHANNEL^EMPTY: 

if (token! = ZERO_STILL Sl& token! =BLOCKJAME) { 

SendToken(CHANNEL_NON_ZERO.channcI,sub,oct,ctrl,hist,&full,branch); 
for(i=l:i<sub;i ++) 

SendToken(ioken == NON_ZERO_STILL?ZERO_STILL:BLOCK_S AME, channel, i,oct.a 
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rl.hisi.&fuJl.brajich); 

♦empty = FULL; 

SeDdToken(tokcn.chaimel. sub, oct.ctrl.hist.empty, branch); 

} 

break; 

case OCTAVE_EMPTY: 

if (token! = ZERO_STILL && token! = BLOCK_SAME) { 

SendToken(OCT_NON_ZERO,channel,sub.oct,ctrl,hist,&full,branch); 

for(i = 0; i < branch;! + +) 
SendToken(token= = NON_ZERO_STILL?ZERO_STILL:BLOCK_SAME,channel,sub.oc 
t,ctrl,hist,&full.branch); 

*enQpty=FULL; 

SendToken(token,channel,sub,oct,ctrl,hist,empty,brancb); 

} 

break; 
case LPF_EMPTY: 

if (token! =LPF_ZERO) { 

SendToken(LPF_LOC_NON_ZERO,channcI,sub,oct,ctrl,hist,&full,branch); 

for(i -0;i < channel;! + +) 
SendTokcn(LPF_ZERO,i,sub.oct,ctrI,hist.&full,branch); 

*einpiy=FULL; 

SendTokcn(token,cbannel,sub,oct,ctrI,hist,empiy .branch); 

} 

break; 
case FULL: 

Dprintf(" %s\n",ioken_name [token]); 

hist- > token(tokenJ + + ; 

hist- > bits + =token_bits[token]; 

hist-> octbiis[channel][oct] + =token_bits(token]: 

if (Ctrl- > bin_switch) 
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bwrite(&token_co<jes(ioken],ioken_biis(token],ctrl- > b^); 
break; 

} 

} 



/* Function Name: ReadBIock 

* Description: Read block from video 

* Arguments: new, old, addr - new and old blocks and addresses 

* X, y, 2, oct, sub, channel - co-ordinates of block 

* Ctrl - compression control record 

* Reimiis: block values 



void ReadBlock(new,old,addr,x,y,2,oct,sub,channel,ctrl) 

Block new, old, addr; 

int X, y. z, oct, sub, channel; 

CompCtrl Ctrl; 

{ 

int X, Y; 

for(X»0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 

addr[X][Y]=Access((x< < 1)+X,(y< < l)+Y,oct,sub,Si2e(ctrl->src,channel,0)); 
new[X][Y] = (int)ctrl- > src- > data[channcl][zl[addr[X][Y]]; 
old[X]m « (int)ctr|.> dst- > dataIchannel][2][addr[X]{Y]]; 

} 

} 

Function Name: CalcNorraals 
* Description: Calculates HVS weighted normals 
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Arguments: ctrl - compression control record 



oct, sub, channel - co-ordii:ates 



Remms: 



norms - pre- initialised normals 
weighted normals 



void CalcNonnaJs(ctrl,oct,sub,channel, norms) 



CompCtrl 



Ctrl; 



double 



int 



oct, sub, channel; 
nonns[3]; 



{ 



Video vid=ctrl->dst; 

int norm, base_oct = oct + (vid- > type = = YUV && 
channel! =0?vid- > trans, wave let. space [0]- vid- > trans. wavclet.space[l]:0)+(sub= =0?1 :0) 

for(norm=0;norm<3;noim++) { 



Ctrl- > base_factors[base_oct]*(sub= =3?ctrl- > diag_factor: 1 .0); 



/* Function Name: MakeDecisions 

* Description: Decide on new compression mode from block values 

* Arguments: old, new, pro - block values 

* zero - zero flag for new block 

* norms - HVS normals 



if (norm!=0) normsfnorm] ♦= ctrl- > quant_const; 
nonnsCnorm] • = 



if (channel! =0) norms[norm] *= ctrl- > chrome_faaor; 
norms[norm] * = (double)(l< < vid- > precision); 



} 
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mode - cuirent compression mode 
decide - comparison algorithm 
new compression mode 

int MaJceDecisions(old . new , pro,zcro, norras,mode,decide) 

Block new, old, pro; 
Boolean zero; 
double nonns[31; 
int mode, decide: 

{ 

Block zero.block={{0,0}.{0,0}); 

int new_mode, i^=Decidc(new,pro,decide), no=Decide(iiew,old,decidc); 

if (i9<no && (double)no>DecideDouble(nornis(mode=- STILL? 1:2], decide) 
&ic !zero) 

new_mode = mode = = STILL 1 1 
(doublc)Dccide(old,2ero_block,decide)< =DecidcDouble(norms(l],decide)?STILL;SEND; 
else new_mode = mode == SEND && np<no && 2ero?VOID:STOP; 
return(new_mode) ; 

} 

int MakeDecisions2(oId,new,pro,Iev,zero,norms,mode,decide) 

Block new, old, pro, lev; 
Boolean zero; 
double norms[33; 
int mode, decide; 

{ 



• Returns: 
*/ 
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Block 2cro_block = {{0.0},{0.0}}; 

int r>ew_mode = mode == STILL \ \ BlockZ£ro(old)?STILL:SEND, 
np=L>ecide(new.pro,decide). no=Decide(new,old,decide); 

if (new_mode= = STILL) Dew_mode = np > =no 1 1 zero | j 
BIock2ero(lev)?STOP: STILL; 

else new_raodc = zcro && np< no?VOID:np> =no j | 
Decision(ncw,old,Dorms[2],decide) 1 1 BIock2ero(l,ev)?STOP:SEND; 

rcturn(new_mode); 

} 

/♦ Function Name: UpdatcCoefb 

* Descripdon: Encode proposed values and write data 

* Arguments: pro, lev, addr - proposed block, levels and addi«ses 

* z, channel, oci - co-ordinates 

* Ctrl - compression control record 

* hist - history record 

* Renirns: alters cq-1- > dst- > data[channel] [z] [addrQD] 
•/ 

void UpdaicCoe ffs(pro , Ic v , addr, z, channel , oct , Ctrl .hist) 

Block pro, lev, addr; 
int z, channel, oct; 
CompCtrl Ctrl; 
Hist hist; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X + +) for(y=0:Y < BLOCK; Y + +) { 
int bits=Huffman(lcv[X][Y]), 
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level =abs(lev(XirY]); 



Ctrl- > dst- > data[channel] [z] [addr(X][Y]] = (shon)pro[X] [Y] ; 

hist- > coeffllevel > 128?128:levei] + + ; 

hist- > bits 4-= bits; 

hist- > octbiis[channel] [oct] + = bits; 

if (Ctrl- > bin_switch) { 

unsigned char •bytes=HuffCodc(lcv[X][Y]); 



bwrite(bytes,bits,ctrl- > bfjp); 
XtFree(bytes); 



/* FuKtion Name: SendTree 

* Description: Encode tree blocks 

* Arguments: prcv_mode - compression mode 

* X, y, z, oct, sub, channel - co-ordinates 

* Ctrl - compression control record 

* hist - history records 

* empty - token mode 

* branch • tree branch number 

* Returns: active block indicator 



Boolean S€ndTree(prev_mode,x,y,z,oct,sub,channBl,ctrl,hist,empty,branch) 

int prev_mode, x, y, z, oct, sub, channel, *empty, branch; 
CompCtrl Ctrl; 
Hist hist; 
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{ 

Block addr, old. new, pro, lev; 
int new_mode, X. Y; 
double 

nonmsI3] = {ctrl->quani_consi.crrl->thrcsh_consi.ctil->cmp_const}; /* quant, thresh, 
compare */ 

Boolean active = False; 

ReadBlock(new,old,addr,x,y,2,oct,sub,chanDel,ctrl); 
if (prcv_raode!=VOID) { 
Boolean zero; 

Ca]cNonnaJs(ctrl,oct,sub,chaLnel, norms); 

2ero = Proposed(pro,lev,cld,ncw,ctrl- > decide, norms); 

/• 

new_mode = MakeDecisions(old,new.pro,2cro,noTms.prev_modc,ctrl- > decide);*/ 

new_modc = MakcDccisions2(old,new,pro,lev,zero,norms,prcv mode,ctrl- > decide); 
swiich(ncw_niode) { 
case STOP: 

/*SendToken(prev_raodc = =STILL?ZERO_STILL:BLOCK_SAME.channel,sub,oct,ctrl,h 
ist.empty, branch);*/ 

ScndTokcn(prev_mode== STILL 1 1 
BlockZero(old)?ZERO_STILL:BLOCK_SAME,channel.sub,oci,ctrl,hist,empty,branch); 

break; 
case STILL: 
case SEND: 

active = True; 

/*SendToken(prev_mode = = STILL?NON_ZERO_STILL;BLOCK_CHANGE,channel,sub 
, oci, Ctrl . hist , empty , branch) ; */ 
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SendTokeD(prev_mode== STILL j| 
Blc)ckZcro(old)?NON_ZERO_STILL:BLOCK_CHANGE.ch2nnei,sub,(x:t.ctrl.hist.erapty 
branch); 

UpdateCoeffs(pro,lev,addr,2,chaimel,oct,cirl,hist); 
break; 
case VOID: 

SendToken(ZERO_VID,channel,sub,oci,ctrl,hist,cmpty,branch); 

ZeroCoeffs(ctrl- > dst- > data[chaimel]Iz],addr); 

break; 

} 

}else{ 

if (BlockZero(old)) new_inode-STOP; 
else { 

ZeroCoeffs(ctrl- > dst- > data[channel][z3,addr); 
new_inodc = VOID; 

} 

} 

if (oct>0 && new_mode!=STOP) { 

int mt=OCTAVE_EMPTY, fiiU-FULL; 

Dprintf("x=%d, y-%d, oct=%d sub=%d mode 
%d\n",x,y,oct,sub,new_mode); 

for(Y=0;Y<2;Y++) for(X=0;X<2;X + +) 

(void)SeDdTrec(new_mode,x*2+X,y*2+Y,z,oct-l,sub,channel,ctrI,hist,&int,X+2*Y); 

if (mt= =OCTAVE_EMPTY && new_mode! = VOID) 
SendToken(OCT_ZERO , channel , sub .oct.ctrl .hist, &full,0); 
} 

rerum(active); 

} 

/• Function Name: SendLPF 
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Dcscripiion; 



Encode LPF sub-band 



Arguments: 



mcxle - compression mode 



z - 



frame number 



Ctrl - compression control record 
hist - history records 



* Returns: encodes data 
*/ 

void SendLPF(mode,z,ctrl,liisi) 

CompCtrl Ctrl; 
int mode, z; 
Hist hist; 

{ 

Block new, old, pro, lev, addr; 

int channel, channels = Ctrl- >sn:-> type ==»M0N0?1:3, x, y, full=FULL, 
octs_lum-ctrI- > src-> trans.wavelct.space(0], 

si2c[2] = {Si2e(ctrl->src.O,0)> >octsJum+l.Si2e(ctrl->src,0,l)> >octsJum+l}; 

forO'=0;y<si2e[l];y++) for(x=0;x<si2e[0];x + +) { 
int empty =LPF_EMPTY; 

for(channel=0;channel<channels;channel + +) { 

int octs=ctrl-> src-> trans. wavelet.space[ctrl- > src- > type= = YUV 
&& channel! =0?1:0], 



ncw_mode, X, Y, step, value, bits=0; 



double 



norms[3] = {ctrl- > quant_const,cirl- > thresh_const,ctrl- > cmp_consi}; 



CalcNormals(ctrl ,octs- 1 .0.channel .norms); 
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Step = nonns(0] < 1 . 0? 1 : (int)norms[0] ; 
for(bits=0, 

value = (( 1< < 8 + Ctrl- > dsi- > precision)- 1 )/siep ; value ! = 0;bits -i- -i- ) 
value = value> > 1; 
ReadBlock(Dew,old,addr,x,y,z,octs-l,0,channel,ctrI); 

/* Proposed */ 

for(X=0;X<BLOCK;X-^+) for(Y=0;Y< BLOCK; Y++) 

pro[X]IY] = old[X][Y] -t-Quanii2e(newrX][Y] -old [XJ[Y], step, &(lev[X]rY])); 

/• MakeDecisions */ 

ncw_mode=mode- »STEX?STILL:Decision(ncw,old,noniis(2] .Ctrl- > decide) 1 1 
BlockZero(lcv)?STOP: SEND; 

switch(new_mode) { 
case SEND: 

ScndToken(LPF_NON_ZERO.chaimcl,0,octs,ctri,hist,&cmpty,0); 
UpdateCocffs(pro,lev,addr,z,channel,octs,ctrI,hist); 

break; 

case STILL: 

for(X=0;X<BLOCK;X-l--l-) for(Y=0;Y<BLOCK;Y-»-+) { 

Ctrl- > dst- > data[channel]Iz]Iaddr[X][Y]] = (shon)pro[X]rY]; 

hist- > bits += bits; 

hist- > octbits[channel][octs] + = bits; 

if (ctrl->bin_switch) { 

unsigned char *byies=CodcIm(levpC]rY],bits); 

bwrite(bytes,bits,ctrl- > bfp); 
XtFree(bytes); 

} 
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} 

br&aic; 
case STOP: • 

SendToken(LPF_ZERO,channel,0,ocis,ciil,liisi,&empty.O); 
break; 

} 

} 

if (mode! = STILL &.& empty ==LPF_EMPTY) 
SendTokeD(LPF_LOC_ZERO.channcl.0.octsJum,ctrl,hist.&full,0); 

} 

hist- > Ipf =hjst- > bits; 

} 

/• Function Name: LookAhead 

* Description: Examine base of tree to calculate new quantizer value 

* Argimienis: z - frame number 

* Ctrl - compression control record 

* hist - history records 

* Returns: calculates new Ctrl- > quant_const 
•/ 

void LockAhcad(z,ctrl.hist) 

CompCtrl cffl; 
int z; 
Hist hist: 

{ 

int X, y, sub, index, thresh[HISTO], decide = Ctrl- > decide, act. 
taract=Fcedback(hist,z.ctrl- > feedback), 
octs =cirl- > src- > trans, wave let. space {0] , 
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si2e(2] = {Si2e(ccrl->src,0,0)> > l+oct5,Si2e(ctTl->src,0,l)> > 1+octs}; 
Block new, old, addr; 
double old_quaDt=ctrl- > quant_const; 

Ctrl- > quant_const= 1.0; 

for(mdcx=0; index < HISTO; index + +) threshfindex] =0; 
for(y=0;y<si2e[l];y++) for(x=0;x<si2e[0];x + +) 
for(sub=l;sub<4;sub++) { 

double q_thi"csh(3]. 
norms(3] = {ctrl- > quant_consi,ctrl- > thresh_consi,ctrl- > cmp_const} ; 
Block zero_block={{0,0}.{0,0}}; 

RcadBlock(new,old,addr,x,y,2,octs-l,sub,0,ctrl); 
CalcNornials(ctri,octs-l ,sub,0,Dorms); 

q_thrcsh(l] = (double)Decide(new,zero_block,decidc)/DecideDouble(norms[ll .decide); 

q_thresh(2] = (double)Dccidc(new,old,decide)/DccideDouble(norms[2],decide); 
if (BlockZcro(old)) q_thieshlO]=q_thresh[l]; 
else q_ihrcsh{0] =q_diresh[2] < q_threshtl]?(Lthrcsh(2]:q_thresh[l]; 
if (Ctrl- > decide = =SIGSQR) q__ihresb[0] = sqn(q_threshIO]); 

index = (int)(((Lthresh[0]-old_quani+ HISTO_DELTA)»HISTO/(HISTO_DELTA*2)); 

index = index < 0?0: index > HISTO- 1 7HIST0- 1 : index; 
thresh[index]++; 

} 

for(index= HISTO- 1, act=0;index> =0 && act <taract; index--) 
act -t-=thresh[ index]; 

ctrl->quant_const=(double)(index-l-l)*HISTO^DELTA*2.0/HlSTO+old_quam-HISTO_ 
DELTA; 

Ctrl- > quant_const=cirl- > quant_const < O.0?0.0:ctrl- > quara_const; 
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Dprinif("Target biu %d act %d (real %d) adjust q_consi to 
%3.2f\n" ,hisi{z] .target,taraci,act,cirl- > quant_const); 

hisi[z] . q_consi = Ctrl- > quaiit_consi; 

Ctrl- > quani_const = Fi]ter(hist.z.ctrl- > feedback.ctrl- > filter); 
DpruitfC'Post filtering q_const to %3.2An",ctrl->quaiit_consl); 
if (Ctrl- > bin_swiich) { 

unsigned chai "bytes = CodeInt(index+l-HISTO/2,HISTO_BITS); 

bwrite(byies, HISTO_BITS, Ctrl- > blip); 
XtFrce(bytcs); 

} 

} 

/* Function Name: CompressStats 

• Description: Compile compression statistics 

• Arguments: Ctrl - compression control record 

• hist - history records 

• Returns: plot graphs 
*/ 

void CompressStats(ctrl.hist) 

CompCtrl Ctrl; 
Hist hist; 

{ 

FILE *fp_tokcn. *fp_cocff, *lp_Iog, •fopcnQ; 

char rile_namc[STRLEN): 

int channel, z, i, sigma; 

sprintf (file name , " % s % s/ % s . token % s\0 " , global- > home , PLOT_DIR, Ctrl- > stats_name ,P 
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LOT_EXD; 

fp token = fopen(file_iume."w"); 

sprintf(^lle_Iume/%s%s/%sxoeff%s\0^globaI->home.PLOT_DIR.ct^l->suts_name,PL 

OT_EXT); 

fp cocff=fopcn(filc_name,"w"); 

spriiitf(file_iume,"%s%s/rcS.log%s\0".global->home,PLOT_DIR,cirl->siais_name.PLO 

T_EXT); 

fpjog = fopen(file_naine, "w"); 
fpriiitf(fp_ioken/\ "Tokens %s\n", Ctrl- > name); 
for(i=0;i<TOKENS;i++) { 
sigina=0; 

for(z=0;z<ctri- > sre-> si2e[2];2+ +) sigma+ =hisi[2].token[i]; 
fprintf(fp_token,"%d %d\n",i,sigma); 

} 

fprintf(fp_coeff. -\"Cocffs %s\n" .Ctrl- > name); 
for(i=0;i<129;i++){ 
sigina=0; 

for(z=0;z<ctrl-> src-> si2e(2];2++) signia+ =hist[2].coeffIi]; 
fprintf(fp_coeff,"%cl %d\n",i,sigma); 

} 

for(i=0:i<5;i++){ 

String uUcs[51 = { " treebits" . "activity * , " quant" , "bits" , " ratio " } ; 



fprintf(fip_log, "\n\" %s\n" ,tiUes[i]); 
for(2 = 0;z < Ctrl- > src- > sizePl ;z + + ) 
switch(i) { 

case 0: fprintf(fp_Iog, " %d %d\n",z,hist[z].bits-hist(zl.lpO; 
break; 

case 1: fprintf(fpJog, " %d %d\n",z,liist[z]. activity); 
break; 



Copied from 10340491 on 04/01/2005 



PCT/GB94/0O€r 



- 210 - 

case 2: fpriDrf(fp_log."%d %An",2.hjst[z].q_coDSi); 
break; 

case 3: fprmrf(fp_log."7cd %d\n".z,hisi(z].biis); 
break; 

case 4: fpriDtf(fpJog,"%d 
% f\n" .2,{double)(hist(z] . bits-(z = = 0?hist(z] . Ipf :0))/(double)hist(zj .activity); 
break; 



for(channel =0;chanDcl < (ctrl- > src- > type = = M0N0?1 :3);channel + +) { 

int ocis =cirl- > src- > trans. wavcict.spacc(ctrl- > src- > type = = YUV 
&& channel! =0? 1:0]; 

for(i=0;i<=ocis;i + +) { 

fprintf(fp_log,"\n\"chaEnel %d oci %d\n",channel,i); 
for(z=0;2 < Ctrl- > src- > si2el2];z+ +) 

fprintf(fp_log, " %d %d\n" .z.histU] .octbits[channcI][i]); 



} 

fclose(fp_token); fclose(fp_coeff); fclose(fip_log); 



} 



/* Function Name: CopyFrame 

* Description: Copy frame or zero 

* Arguments: vid - video 

* from, to - source and destination frame numbers 

* zero - zero out flag 

* Returns: alters video- > data 



void CopyFrame(vid.from,to.zcro) 
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Video vid; 
int from, to; 
Boolean zero; 

{ 

ini i, channel; 

for(chanDel=0;chaiinel< (vid- > type ==M0N0?l:3);channel++) { 
int si2e»Si2e(vid,channel,0)*Size(vid,channei,l); 

for(i=0;i<si2e;i++) 

vid- > data [channe 1] [to] [i] = zero?0: vid- > data(chaDnel]Ifroni] [i] ; 

} 

} 

/♦ Function Name: CompressFramc 

* Description: Compress a Frame 

♦ Arguments: Ctrl - compression control record 

• z - frame number 

• hist - history records 

* target - target bits 
*l 

void CompressFrame(ctrl,z,hist,target) 

CompCtrl Ctrl; 
int z, target; 
Hist hist; 

{ 

Video src=ctrl->src, dst=ctrl->dst; 

int sub, channel, x, y, mode=ctrl->stillvid 1 1 z= =0?STrLL:SEND, 
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octs_lum = src- > trans, wavelet. space[0] , 
si2c(2] = {Si2c(src.0.0)> > 1 +oct5jum.Si2c(src,0.1)> > 1 +ocis_lum}; 
NewFramc(dst,z); 

CopyFraine(dst,2-l,z,ctrl-> still vid jj z==0); 

GeiFraine(src,2); 

hist(z]. target = target; 

if (z!=0 && Ctrl- > auto_q) LookAhead(z,ctrl,hist); 
ScndLPF(inodc,2,ctrl,&hisilzl); 
Dprintf("LPF bits %d\nMiist[z].lpf); 
hist(z] .q_const=ctrl- > quant^const; 
for(y=0;y<si2e[l];y++) for(x=0;x<si2e[0];x + +) { 
int empty = EMPTY, full = FULL; 

for(chaiiDel = 0; channel < (dst- > type = = MONO? 1 : 3) ;channcl + + ) { 

int octs=src->trans.wavclet.spacc[src->type==YUV && 

channel! =0?1:0]; 

for(sub=l;sub<4;sub++) { 
Boolean 

active* SendTree(modc,x,y ,z,octs-l ,sub,channel,ctrl,&hist[z] ,&empty,0); 

hist[2]. activity += channel = =0 && active; 

} 

switch(empiy) { 
case FULL: 

empty = CHANNEL_EMPTY; 

break; 

case CHANNEL_EMPTY: 

SeDdToken(CHANNEL_ZERO,channcl,sub,octs-l .cirl,&hist(z] ,&full,0] 
break; 
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} 

} 

if (empty == EMPTY) 
SendToken(LOCAL_ZERO,channel,sub,octsJum-l,ctTl,&liist{z].&fuU,0); 
} 

Dpriiiif(" Activity: %d\n",hist(2]. activity); 
FreeFrame(src,z); 

} 

/* Function Name: SkipFrame 

» Description: Shuffle frame data as if cunent frame was skipped 

• Arguments: vid - video 

• z - frame number 

• Rcninis: alters vid- > data 
*/ 

void SkipFrame(vid,2) 

Video vid; 
int z; 

{ 

NewFrame(vid,z); 

CopyFrame(vid,z-l,2,False); 

if(z>l){ 

GetFrame(vid,z-2); 

CopyFrame(vid,z-2,z-l .False); 

FreeFrame(vid,z-2); 




/♦ Function Name: CompressCtrl 
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Description: Perform KUCS on a video 
Arguments: w - Xaw widget 

closure - compression control record 

call_data - NULL 
Returns: compressed video 



void CompressCtrl(w , closure ,caJl_data) 



Widget w; 

caddr_t closure, call_daia; 



CompCtrl ctrl=(CompCu-l)cIosure; 

ini sigma_bits, frame_count, z, i, buffer=0, frames = Ctrl- >src->si2e[2], 
bpf_in=(64000*ctrl- > bitrate)/ctrl- > src- > rate. 
bpf_out=(int)((double)(64000*ctrl- > bitratc)/ctrl-> fps); 

FILE •fopcnO; 

char file_namcISTRLEN]; 

HisiRec hist(frames]; 

Message nisg = NewMessage(NULL,60); 

rasg- > rows = frames > 1 0? 1 1 : frames + (fr^es = = l ?0: 1 ) ; msg- > cols = 30; 
if (global- > batch = = NULL) { 

XtCallbackRec cailbacksQ = { 

{CloseMessage,(caddr_t)msg}, {NULL.NULL}, 



MessageWindow(FindWidget("frm_compress",w).msg,''KLICS",Tnie, callbacks): 
} 

Dprintf ( " ComprcssCtrlVn ") ; 
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if (Ctrl- >src-> type = = YUV &&. 
(Ctrl- > src- > trans. wavelet.spacefO]! = Ctrl- > src- > trans. wavelet.spacefl] -l-ctrl- > src- > U 
Vsample[0] |1 Ctrl- > src- >UVsainpieIO]! = ctrl-> src- > UVsamplc[l])) { 

Eprintf("Y-UV octaves mis-matched. Check UV-sample"); 

return; 

} 

Ctrl- >dst = Copy Header(ctrl- > src); 
strcpy(ctrl- > dsi- > naiiie.ctrl- > name); 
if (Ctrl- > dst- > disk) SaveHeader(cirl- > dst); 
if (Ctrl- > bin_switch) { 

sprintf(rile 

name,"%s%s/%s%s\0",g]obal->bome,KUCS DIR, Ctrl- > bin Qame,KLICS 

EXT); 

Ctrl- > bfp = bop€n(file_name, "w"); 
/* Write some sort of header */ 
WriieKlicsHeader(ctrl) ; 

} 

for(z=0;2<frames;2++) { 
hist(z],biis=0; 
hist[z].lpf=0; 
hist[z].activity=0; 
hi5t[z]. target =0; 

for(i=0;i <5:i+ -f ) hist[z].octbits[0][i]=0; 
for(i =0;i <5;i+ +) hist[2].octbits[l][i] =0; 
for(i=0;i<5;i++) hist[2j.octbits(2][i]=0; 
for(i = 0;i < TOKENS;! + +) histfz]. token[i] =0; 
for(i=0;i< 129;i++) histIz].coeffTi]=0; 
hist[2].q_consi=0.0; 

} 

for(z=0;z<frames;z++) { 

if (2= =0 1 1 !cirl->buf_switch) { 

CompressFrame(ctrI.z,hist,bpf_out); 
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buffer = 3200"ctrl- > bicrate + bpf_m; 

} else { 

Boolean no_skip; 

buffer- =bpf_in; 

buffer = buffer < 0?0:buffer; 

no_sldp=buffer<6400»ctrl->bitrate: /" H.261 buffer size */ 
if (Ctrl- > bin_switch) bwriie(&no_skip,l,ctrl->bfp); 
if (no_sldp) { 

CompressFrame(ctrl,z,hist,bpf_out/*+bpf_out/2-buffer*/); 
buffer +=hist[z]. bits; 
} else SldpFrame(ctrl->dsi,z); 

} 

if(2>0){ 

SaveFrainc(ctrl- > dst,z-l): 
FrecFramc(ctrl- > clst,2-l); 

} 

Mprintf(msg,"%s%03d: %d 
bits\D",cal- > dst-> name, 2+ Ctrl- > src-> stan,hist[2]. bits); 
Mflush(msg); 

} 

SaveFrame(ctrl- > dst.ctrl- > src- > si2cl2]-l); 

FrccFramc(ctrl- > dst,ctrl- > src- > size[2]-l); 

if (Ctrl- > bin_swiich) { bflush(ctrl->blip); bclose(ctrl- > bfjp); } 

if (Ctrl- > stats_switch) CompressStats(ctrl,hist); 

DprintfC Compression CompIeteNn"): 

signia_bits=0, frame_couni=0; 

for(z=0;z<ctrl->src->size[2];z++) { 

sigma_bits-»- = histlz].biis; 

if (hisi[z].bits! =0) frame_count+ -»-; 

} 

if (cirl->buf_switch) { 
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Dprintf("Buffcr coDiains %d biis\n",buffer-bpf_in); 
Dprintf(" Frame Rate %4.1f 
Hz\n" . (double)(ctrl- > src- > rate'*(fTaiiie_coimi- 1 ))/(double)(ctrl- > src- > si2e[2]- 1 )) ; 

} 

if (frames >1) { 

Mprmtf(msg, "Total: %d bits\n",sigma_bits); 
Mflush(msg); 

} 

Ctrl- > dst- > nexi= global- > videos; 
global- > videos =ctrl- > dst; 

} 

/* Function Name: BatchCompCtrl 

* Description: Batch interface to CompressCtrl 
*/ 

void BatchCompCtrl(w,closure,call_data) 

Widget w; 

caddr t closure, call_data; 

{ 

CompCtrl ctrl=(CompCtrl)closurt; 

if (Ctrl- > STC = = NULL) Ctrl- > src = FindVideo(ctrl- > src_name,global- > videos); 
CompressCtrl(w,closurc,call_data); 

} 

/* Function Name: InitCompCtrl 

♦ Description: Initialise the compression control record 

* Arguments: name - name of the source video 

• . Returns: compression control record 
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*/ 

CorapCtrl InitCompCirl(name) 

String name; 

{ 

CompCtrl Ctrl = (CompCtrl)MALLOC(si2eof(CompCirlRec)) ; 
int i; 

Ctrl- > decide = SIGABS; 
Ctrl- > feedback =4; 
Ctrl- > filter =0; 
Ctrl- > siillvid=Truc; 
Ctrl- > stats_switch= False; 
Ctrl- > auio_q = Tnie; 
Ctrl- > buf_switch - Tnic; 
Ctrl- > bin_s witch = False; 
Ctrl- > cmp_const = 0. 9; 
ctrl-> tliresh_const=0.6; 
Ctrl- > quant_const =8.0; 
Ctrl- > lips = 30.0; 
ctrl->bitraie=l; 
for(i=0;i<5;i++) { 

double dcfaults[5] = {1.0,0.32,0. 16,0. 16,0. 16}; 

Ctrl- > base_factors[i] ^defaultsfi]; 

) 

Ctrl- > diag_factor= 1.4142136; 
Ctrl- > chrome_facior=2.0; 
sircpy(ctrl- > src_name,nanie); 
strcpy(ctrl- > name.namc); 
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strcpy(ctrl- > stats_naine,naine); 
strcpy(ctrl- > bin_name,name); 
remni(ctrl): 

} 

/• Function Name: Compress 
* Description: X Interface to CompressCtrl 
•/ 

^define COMPJCONS 25 
#define VIDJCONS 15 

void Coinpress(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video video =(Video)closure; 

CompCtrl Ctrl = InitCompCtrl(video- > name) ; 

int i, space=video->trans.wavelet.space[0] + l; 

Nmnlnput num_ii^uts = (NumInput)MALLOC(2*si2eof(NumInpuiRcc)); 

Floatlnput flt_inputs = (FloatInput)MAIJLOC(6*si2eof (FloadnpuiRcc)) , 

oct_inputs = (FloatInput)MALLC)C(space*si2eof(FloatInputRec)) ; 

Message msg = NewMessage(ctrl- > name.NAME^LEN), 

msg_bin=NewMcssage(ctrl- > bin_name,NAME_LEN), 
rasg_stats = NewMessage(ctrl- > siats_name,NAME_LEN); 
XtCallbackRec dcstroy_call[]={ 
{Frec.(caddr_t)ctrl}, 
{ Free , (caddr_t)num_inpuis} , 
{Free,(caddr_t)flt_inputs}, 
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{ Free , (caddr_t)oct_ inputs } , 
{ CloseMessage , (caddr_i)msg} , 
{CloseMcssage,(caddr_t)rasg_bin}, 
{ CloseMessage , (caddr_t)msg_siats} , 
{NULL, NULL}, 

}; 

W idget parent = Find Widget( " fnn_coinpress " ,XtPareni( w)) , 

shell = ShellWidget(''kJics",parent,SW_b€low,NULL,destroy_caJl). 
form = FormaiWidgci("klics_form" .shell), 

dec shell = ShellWidget("k]ics_cng_dec",shcll,SW_menu,NULL,NUUL), dec^widgeis[3I, 

flit shell = ShellWidget('kJics_cng_filt",sheU,SW_menu,NULL,NULL), nit_widgets[21. 
widge ts[C0MP_ICONS] , vid_widgctsl VIDJCONS] . 

oct_widgcts[space*2]; 

Fonnliem itenisD = { 

{ 'ldics_cancer , "cancel " ,0,0,FW_icon,NULL} , 
{ " klics_confinii " , "confirm " , 1 ,0,FW_icon,NULL} , 
{"klicsjiilc". "Compress a video", 2,0,FW_labcl,NULL}, 
{ "k]ics_vid_lab" , "Video Name: " .0,3 .FW^label,NULL} , 
{ "k]ics_vjd",NULL,4 ,3 .FW_text.(String)msg} , 

{ "k]ics_st2ts_lab" . "Statistics: " .0,4, FWJabel, NULL} , 

{ "klics_stats" ,NULL,4 ,4,FW_^n, (Stiing)«Stctrl- > stats_switch} , 

{ "ldics_siats_name " ,NULL.7,4 ,FW_text,(String)msg_stats} , 

{ "klics_binjab" , "KLICS File: " ,0,6,FW_labcl,NULL} , 

{ "klics_bin" ,NULL,4 ,6,FW_yn, (Slring)&ctrl- > bin_switch} . 

{ " klics_bin_namc " ,NULL, 10.6, FW_iext , (String)msg_bin} , 

{"klics_dec_lab","Decision:",0,9,FW_label,NULL}, 

{ " k]ics_dec_btn" , "S igraaAbs" .4 ,9,FW_bunon, "klics_cng_dec" } . 

{ "klics_qn_float" ,NULL,0, 12 ,FW_noat,(String)&flt_inputs(0] } . 
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{ "kJics_qn_scroll " ,NULL.4, 12 ,FW_scroll.(StriDg)&nt_iiipuis(0] ) . 

{"kJics_ih_fToat",NULL,0J4,FW_noat,(StriDg)&nt_iipuis(l]}, 
{ "kJ ics_th_scroir , NUIX/ J 4 ,FW_scroll .(String)&flt_tnpuis[ 1 ] } , 
{"ldics_cm_noat",NULL,0,16,FW_noat,(Striiig)«S:flt inputs(2]}, 
{'•klics_cm_scroll%mJlX,4J6,FW_scroll,(Scring)&nt_inputs(2]}, 
{ "klics_ch_noal^NULL,0, 18,FW_f]oat,(String)&nt_iiiputs(3]}, 

{ "klics_ch_scroir .NULL,4 . 1 8,FW_scroH,(String)&flt mputs(3]}, 
{"kJics_di_float\NULL,0.20,FW_noat,(String)&nt_inputs[4]}, 
{"k]ics_di_scroir,NULL,4,20,FW_scroll,(Siring)&nt inpuis[41}. 
{ "ldics_oct_fonn' .NULL,0.22,FWJonn,NULL} , 
{ ''klics_vid_form " ,NULL.0,24,FW_fonn,NULL} , 
}, vid_iicmsQ={ 

{ "klics Jc Jab" , "Image Comp: " .O.O.FWJabcl.NULL} , 

{ "klicsjc " .NULL, 1 ,0,FW_yn,(String)&ctrl- > stillvid}, 

{ 'klicsjg^float ",NULL,0, 1 ,FW_noat,(String)&nt_mpuis[5]} , 

{ "klics_tg_scroir .NULL, 1 ,1 ,FW_scroll,(String)&nt_mputs[5]} , 

{"k]ics_px_int",NULL,0,3,FW_integer,(String)&num inputs[0]}, 

{ "klics_px_down" .NULL, 1 .3 .FW_down,(String)&nmn_inputs[0] } , 
{ "klics jjx_up",NULL,6,3,FW_up,(String)&mun iiiputs(0]}, 
{ "klics_auio Jab" , " Auto Quant: " ,0,5 ,FW Jabcl.NULL} , 
{ "klics_auto",NULL,l ,3,FW_yn,(Strmg)&ctrl- > auto_q}, 
{ "klics_buf Jab" , "Buffer: " ,0,8,FW_label,NULL) . 

{ "k]ics_bur ,NULL, 1 .8,FW_jn,(String)&ctrI. > buf_switch} , 
{ "klics_buf_btn" , "None", 1 1 ,8,FW_bunon, "klics_cng_filt"} , 
{"kJics_hs_int",NULL,0,10,FW_integer,(String)&nuin_inputs(l]}, 
{ "klics_hs_dowD" .NULL, 1 , 10,inV_down,(String)&nura_inputs[ 1 J } , 
{ "k]ics_hs_up" .NULL, 14, 1 0,FW_up,(Siring)&nuni_mputs[l]} , 
}, oct itenis[2*space]; 
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McnuJtcm dec_mcnun - { 

{"kJics_dec_max",smeBSBObjectClass, "Maximum", NULL}, 
{ "kJics_dec_abs",smeBSBObjectClass."SigmaAbs".NULL}, 
{ "ldics_dec_sqr" .smeBSBObjectClass, " SigmaSqr " ,NULL} , 

}, rilt_menu(] = { 

{ " kl ics_filt_none " . smeBS BObjectClass , " None " . NULL} , 
{"kJics_filt_exp",smcBSBObjcctClass,"Exp',NULL}, 

}; 

XtCallbackRec callbacksD = { 
{Destroy, (caddr_t)shell} , 
{NULL,NULL}, 
{CompressCtrl, (caddr_t)ctrl} , 
{Destroy ,(caddr_t)shell} . 
{NULL, NULL}. 

{ChangeyN,(caddr_t)«&ctrl- > stats_switch} , {NULL.NULL} , 
{Change YN,(caddrj)&ctrl- > bm_swiich}, {NULL.NULL}. 
{FloaancDec,(caddr_t)&nt_inputsIO]}, {NULL,NULL}, 
{FloatIncDcc.(caddrj)&nt_iiq)uis(l]}. {NULL,NULL}. 
{FloaiIiicDec,(caddrj)ifent_inputs(2]}, {NULL,NULL} , 
{FloaiIncDec,(caddr_t)&nt_inputs(3]}, {NULL,NULL} , 
{noatlncDec .(caddr_t)&nt_inputs(4] } , {NULL,NULL} , 
}. vid_callD = { 

{Change YN,(caddr_t)&ctrl- > stUlvid} , {NULL,NULL} , 
{FIoaancDec,(caddrj)&nt_inputs(51}. {NULL,NULL} . 
{NuinIncDec,(caddrj)&num_inputs[0]} , {NULL.NULL}, 
{NumIncDec,(caddr_i)&num_inpuis[0]}, {NULL.NULL}, 
{Change YN,(caddr_t)&ciil- > auio_q} , {NULL.NULL} , 
{Change YN,(caddrj)&ctrl- > buf_switch}, {NULL.NULL} , 
{ NumlncDec , (caddr_t)&nura_inputs[ 1 ] } , {NULL. NULL} . 
{NumIncDec.(caddrj)«Scnum_inputs[ 1]} , {NULL.NULL} . 
}, dec_caIlD = { 

{SirapleMenu.(caddr_t)i&ctrJ- > decide}, {NULL,NULL}, 
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{SimpleMenu,(caddr_t)&cirl- > decide}. {NULL.NULL}, 
{SimpleMenu,(caddr_t)&ciil-> decide). {NULL.NULL}. 

}. rilt_callO = { 

{SimpleMenu,(caddr_t)&cnl-> fdier}, {NULL, NULL}, 
{SimpleMenu,(caddr_t)&ctrl-> filter}, {NULL.NULL}, 

}, oct_call[2*spacc]; 

XFoniStruct *font; 

Arg args[l]; 

insg->rows = l; msg->cols=NAME_LEN; 
rasg stats- >rows=l; insg_stats->cols = NAME_LEN; 
msg bin->rows=l; msg_bin->cols=NAME_LEN; 
Ctrl- > src = (Vidco)closure; 

nt_inputs(0].fonnat="Quani: %4.ir; 

flt_inpuis(0].max=10; 

flt_inputs[0].min=0; 

flt_inputs[0]. value = &ctri- > quant_const; 

nt_ii^uis[l].fonnat= "Thresh: %4.ir; 

nt_inpuis[l].max=10; 

nt_inputs(l].inin=0; 

ntjnputs(l].value= &ctrl- > thresh_const; 

nt_inputs[2].fonnat="Comp: %4.ir: 

ntjnputs[2].max=10; 

fltjnputs(2J.niin=0; 

nt_inputs [2] . value = &ctrl- > cmp_const; 

nt_inputs[3]. format = "Chrome: %4.ir; 

nt_inputs(3].max=5; 

nt_inputs(3].min=l; 
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fit input5(3].valuc= &ctrl- > chromc_factor; 

nt_inpuis[4].formai="Diag: %4.ir; 

flt_mputs[4] . max = 2.0; 

flt_mput5(4] .min= 1 .0; 

flt_inpuis[4] . value = &ctrl- > diag_factor; 

flt_inpuis[5]. format = "Target: %4.ir; 
flt_inpuis[5) .max = 30.0; 
nt_ii^uts[5].inin= 10.0; 
fit mput5[5]. value = &ctrl->fips; 

num_inpuis[0).fonnat«"px64k: %ld": 
Dum_inputs[0] .max = 8; 
num_mpuis[0] .min= 1 ; 
num_inpuis[0]. value = &ctrl- > bitrate; 

Dum_uiputs(l].fonnai= "History: %ld"; 
num_mpuis( 1 ] . max = 8; 
Dum_inputs ( 1 ] . min = I ; 
num_inpuis[l]. value = &ctrl- > feedback; 

for(i=0;i<space;i++) { 

String format = (char •)MALLOC(20); 

if (i==0) sprintf(formal, "Octave LPF: %%4.2r); 
else sprintf(fortiiai," Octave %3d: %%4.2r.space-i-l); 
oct_inputs[i] . format = format; 
oct_inputs(i] .max = 1.0; 
oct_inputs(i).min=0.0; 

oct_inputs{i]. value = &ctrl-> base_faciors{space-l-l]; 
oct_items(2*i] .name = "ldics_oct_float"; 
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oci_iiems[2 ' i] .coDicnts = NULL; 
oct_itcms(2*i] .fromHoriz =0; 
oci_iiems(2*i].fromyert=i= =0?0:2*i-l; 
oci_items[2*i] .type = FW_noat; 
oci_iten[is[2 *i] .hook = (String)&oct_inputs(i] ; 
oct_iiems[2*i+ l].name = "klics_oct_scroU"; 
octjtems(2*i + l].coments=NlJLL; 
oci_items [2 * i + 1 ] . fromHoriz = 1 ; 
oct_itcins(2*i+ l].fromVcn«i= =0?0:2*i-l; 
oct_items[2*i + 1 ] .type = FW_scroll; 
oct_iieins(2*i+l].hook=(String)&oct_mputs[n; 
oct_call[2*i] .callbacks FloatlncDec; 
oct_call[2*il .closure - (String)&oa_inputs[i] ; 
oct_call[2*i+ l].callback=hnJLL; 
oct_call[2*i + 1] .closure = NULL; 

} 

FillFonn(form,COMP_ICONS-(video- > si2e[2] > I?0:l),items,widgcts,callbacks); 
FiIIForm(widgetsI23] ,2 *space , octjtems ,oct_widgets ,oct_call) ; 
FillMenu(dec_shcll,THREE,dec_menu,dec_widgets,dec_call); 
font = FindFont(widgets( 1 2]); 

XtSetArg(args(0],XiNwidth,2+Te«Width(0/Maximum\nSigiiuAbs\iiSigmaSqr",font)); 
XtSctValues(widgets(12],args,0NE); 
if (video- >si2eI2]>l) { 

FillFonn(widgetsl24],VIDJCONS,vid_iiems,vid_widgets,vid_call); 

FillMenu(filt_shell,TWO,fi]t_menu,nit_widgets,filt_call); 

font = FindFont(vid_widgets[l 1]); 

XtSeiArg(argsI0],XiNwidih,2+TextWidth(0,"None\nExp",font)); 
XtSetVaIues(vid_widgets[ 11] ,args,ONE); 

} 

XtPopup(shell,XtGrabExclusive); 
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Full still/video Knowlcs-Lewis Image Compression System utilising HVS 
propenies 

ajid delta-tree coding 

Siand-AJone version uses fixed image format and static data structures 

^include "KlicsSA.h" 
^include < math.b > 

extern void ConvolveO; 

/* useful X definitions */ 

t}'pedef char Boolean; 

#define True 1 

^define False 0 

#define String char* 

/• token modes (empty) •/ 

#define EMPTY 0 

#define CHANNEL_EMPTY 1 

#define OCTAVE^EMPTY 2 

^define LPF_EMPTY 3 

#define FULL 4 

/♦ Function Name: AccessSA 

* Description: Find index address from co-ordinates 

* Arguments: x, y - (x,y) co-ordinates 
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* oci, sub, channel - octave, sub-band and channel co-ordinates 
Returns: index into data[channel]D[index] 

•/ 

int AccessSA(x.y,oct,sub,channel) 

int X, y. oct, sub, channel; 

{ 

retuni(({x< < l) + (sub> > l) + (SA_WlDTH>">(channe]= =0?0:l))*((y< < l)+(l&sub) 

))< <oct); 

} 

/* Function Name: DecideSA 

* Description: Calculate value representing the difference between new and old 
blocks 

* Arguments: new, old - blocks to compare 

* Remms: difference value 
*/ 

int DecideSA(new,old) 

Block new, old; 

{ 

int X, Y, sigma=0; 

for(X=0;X<BLOCK;X + +) for(Y=0;Y<BLOCK;y++) 
sigma+ = abs(new[X][Y]-old[X][Y]): 
retum(sigma); 

} 
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/* Function Name: DecideDoubleSA 

* Description: CaJculates normaJ w.r.t differencing algorithm 

• Arguments: norm - normal value 

* Renims: new normal value 
V 

double DecideDoubleSA(Dorm) 

double norm; 

{ 

retum(4.0»norm); 

} 

Boolean DecisionSA(new,o]d,norm) 

Block new, old; 
double norm; 

{ 

rcmm((doublc)DecidcSA(new.old) < =DecideDoubleSA(norm));- 

} 

Function Name: HuffimanSA 

• Description: Calculates the number of bits for the Huffman code representing 
level 

* Arguments: level - level to be encoded 

• Rewms: number of bits in codeword 
»/ 

im HuffmanSA(level) 
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im level; 
{ 

rerum(level==0?2:(abs(level)<3?3:l+abs(level))); 

} 

/• Function Name: HuffCodeSA 

* Description: Generates Hufftnan code representing level 

* Arguments: level - level to be encoded 

* Returns: coded bits in char's 
•/ 

unsigned char *HuffCodeSA(level) 
in! level; 

{ 

unsigned char *bytes= (unsigned char *)^4ALLOC((7+Huffinan(Ievel))/8); 

bytes[0] = (abs(level) < 3?abs(level):3) | Ocvel < 0?4:0); 
if (abs(levcl)>2) { 

int index=(7+Hufftnan(level))/8-l; 

bytes[index]=byies[index]|(l < <(Huffman(levcI)-l)%8); 

} 

remm(bytcs); 

} 

unsigned char *CodeIniSA(nuraber,biis) 
int number, bits; 
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int len=(7+biis)/8; 

unsigned char 'bytes = (unsigned char *)MALLOC(leD); 
int byte; 

for(byte=0;byte<len;byte++) { 
bytes (byte) = Oxff«S:nuraber; 
number = number > > 8 ; 

} 

reruni(bytes); 

} 

int ReadIntSA(bits.blTp) 

int bits; 
Bits bfip: 

{ 

int Icn=(7+bits)/8; 
unsigned char bytes[leD]; 
int byte, number =0; 

bread(bytes,bits,bfip); 

for(byte = 0;byte < len; byte + + ) 

number* number | ((int)bytes[byte] < < bytc*8); 
number = (number < <si2eof(int)*8-bits)> > si2eof(int)*8-biis; 
remmCnumbcr); 



/* Function Name: HuffReadSA 

• Description: Read Huffman encoded number from binary file 

* Arguments: bfjp - binary file pointer 
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Renims: decoded level 



int HuffReadSA(bfp) 

Bits bfip; 

{ 

int value; 

unsigned char byte; 
Boolean negative = False; 

bread(&byte,2,bfp); 
value =(int)byte; 
if (byte= = '\0') retuni(O); 
else { 

bread(&byte,l,bfp): 
negative = (byte! = '\Q*); 

} 

if (value < 3) rcmrn(ncgif(negative,value)); 

for(byte = '\0';byie= = '\0';value++) bread(«&byte,l,bfp); 

remm(negif (negative , value- 1 )) ; 

}. 

/* Function Nanae: QuantizeSA 

* Description: RMS style quantizer 

* Arguments: data - unqtiantised number 

* q . quantizing divisor 

* level • quantised to level 

* Renims: quantized data & level 
*/ 
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int QuaLnii2eSA(data.q, level) 
ini daia, q, •level; 

{ 

int mag_level = abs(dau)/q; 
•level = negif(data < 0,mag_levei); 

renira(negif(daia<0,magJevel»q+(raag_levcl!=0?(q-l)> > 1:0))); 

} 

/* FuDCiion Name: ProposedSA 

* Description: Calculates proposed block values 

• Arguments: pro - proposed block 

* lev - proposed block quantized levels 

* old, new - old and new block values 

• norms - HVS normals 

♦ Returns: new = =0, pressed values (pro) and levels (lev) 



Boolean ProposedSA(pro,lev,old,new,norms) 

Block pro, lev, old, new; 
double nonns[3]; 

{ 

Block 2ero_block={{0.0}.{0.0}}; 

int X, Y, step = norms[OJ < 1 .0?! :(int)norms(0] ; 

Boolean zero = DecisionSA(new,zero_block,nonns(ll); 

for(X=0;X<BLOCK;X++) for( Y =0;V< BLOCK; Y + +) 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCTyGB94/00677 



- 233 - 



pro(X][Y] = zero?0:old[X][Y] + Quanii2e(new[Xl[Y]-old[X][Y].stcp.&(lcvpC][Y])); 
remrn(2cro): 

} 

/* Function Name: ZeroCoeffsSA 

• Description: Zero out video data 

• Arguments: data - image data 

• addi - addresses 

• Returns: zeros data[addrQD] 
•/ 

void ZeroCoeffsSA(data.addr) 

short *data; 
Block addr; 



iat 



X, Y; 



for(X=0;X < BLOCK;X+ +) for(Y=0:Y <BLOCK;Y+ +) 
dau[addrPfI[Y]]=0; 



} 



Function Name: 



BlockZeroSA 



Description: Test if all block values are zero 
Arguments: block - block under test 
Renims: block= =0 



*/ 



Boolean 



BlockZeroSACblock) 



Block block: 
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{ 

ini X. Y; 

Boolean zero=Tnic; 

for(X = 0;X < BLOCK;X + + ) for(Y =0; Y < BLOCK; Y + +) 

if Cblock(X][Y]! =0) zero = False; 
remni(zcro); 

} 

/• FuDCiion Name: SendTokenSA 

• Descripiion: Increments token frequency 

* Arguments: token • token to be transmitted 

* channel, sub, oct • co-ordinates 

• bfp - binary file pointer 

empty - zero state {EMPTY | CHANNEL_EMPTY | 
OCTAVE_EMPTY | LPF_EMPTY I FULL} 

• branch - branch of tree (0-3) 

* Returns: encodes token 
*/ 

void SendTokenSA(tokcn.channel,sub,oct,bfip, empty, branch) 

int token, channel, sub, oct, •empty, branch; 
Bits bfjp; 

{ 

int full = FULL, i; 
String 

ioken_iurae[TOKENS] = { "ZERO_STILL" . "NON_ZERO_STILL" , "BLCXTKJAME" ,"ZE 
R0_V1D" ,"BLOCK_CHANGE' , 

"LOCAL_ZERO". "LOCAL_NON_ZERO", "CHANNEL.ZERO" . "CHANNEL.NON.ZE 
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RO" , " OCT_ZERO' , "OCT_NON_ZERO" , 

" LPF ZERO ' . "LPF_NON_ZERO ; . " LPF_LOC_ZERO " , " LPF_LOC_NON_ZERO" } ; 

swiich(*empty) { 
case EMPTY: 

if (token! =ZER0_ST1LL &.&. token! = BLOCK_SAME) { 

SendTokenSA(LOCAL_NON_ZERO,chaimel,sub,oct,bfp,«&full,branch); 

for(i = 0; i < channel; i ++ ) 
SendTokenSA(CHANNEL_ZERO,i,sub.ocl,bfp,&fuIl,branch); 

*empiy =CHANNEL_EMPTy ; 

SendTokcnSA(ioken,channel .sub .oct.bfjp .empty .branch); 

} 

break; 

case CHANNEL_EMPTY: 

if (token! = ZER0_ST1LL && token! =BLOCK_SAME) { 

ScDdTokenSA(CHANNEL_NON_ZERO,channel,sub,oct.bfip,&full.branch); 
for(i=l;i<sub:i++) 

SendTokenSA(token= = NON_ZERO_STILL?ZERO_STILL;BLOCK_SAME.channcl,i.oc 
t,bfp,&ftill,branch); 

•empty = FULL; 

SendTokcnSA(token,channel,sub.oct,bfip,empty .branch); 

} 

break; 

case OCTAVE_EMPTY: 

if (token! = ZEROJTILL && token! = BLOCKJ AME) { 

SendTokenSA(OCT_NON_ZERO.channcl.sub.oct,bfp,&ftill,branch); 

for(i =0;i < branch;i + + ) 
SendTokenSA(token= = NON_ZERO_S'nLL?ZERO_STILL:BLOCK_SAME,channcl.sub 
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.oct.bfp.&fall.brajich); 

•empty = FULL; 

ScndTokeaSA(token, channel, sub, oct, bfp, empty, branch); 

} 

break; 
case LPF_EMPTY: 

if (token! =LPF_ZERO) { 

SendTokenSA(LPF_LOC_NON_ZERO,channel,sub,oct,bfp,&full,bninch); 

for(i = 0; i < channel;i + + ) 
SendTokenSA(LPF_ZERO,i,sub,oci,bfp,&full,branch); 

•cmpty=FULL; 

ScndTokenSA(token.chaiincl,sub,oct,blp,cmpty .branch); 

} 

break; 
case FULL: 

Dprimf(" %s\n" ,tokcn_nainc[token]); 
bwrite<&tokcn_codes [token] ,tokcn_bits[tcken] ,bfip); 
break; 




/* Function Name: RcadBlockSA 

* Description: Read block from video 

* Arguments: new, old, addr - new and old blocks and addresses 

* X, y, oct, sub, channel - co-ordinates of block 

* src, dst - frame data 

* Rcmras: block values 
*/ 

void ReadBlockSA(new.old,addr,x,y,oct,sub,channel.src.dst) 
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Block new, old, addr; 

int X, y. oct. sub, channel; 

shon *src(3], 'dst[3]; 

{ 

ini X, Y; 

for(X=0;X<BLOCK;X + +) for(Y=0;y < BLOCK; Y + +) { 

addrPC][Y]=AccessSA((x< <1)+X,(y< <l)+Y,oci,sub,channel); 
ocw[X] [Y] = (inOsrcfchannel] [addr(X] [Y]l ; 
oldpC] [Y] = (int)dst[channel] [addrpC] fY]] ; 

} 

} 

/• Function Name: CalcNonnalsSA 

* Dcscr^tion: Calculates HVS weighted nonnals 

* Arguments: oct, sub, channel • co-ordinates 

* nonns - pre-initialised nonnals 

* Retunis: weighted normals 
•/ 

void CaJcNormalsSA(oct,sub,channcI,norms,quant_const) 

int oct, sub, channel; 

double nonns[31, quant_const; 

{ 

int norm, base_oct=oct+(channel!=0?l:0)+(sub==0?l:0); 

for(norm=0;norm<3;norm++) { 

if (norm! =0) norms(normj *= quant_const; 

norms[nonn] *= base_faaors[base_oct]*(sub= =3?diag_factor:1.0); 
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if (channel ! = 0) nonms(nonn] * = chrome_facior; 
noniis(nonn) ' = (double)(l< <SA_PRECIS]ON); 

} 

} 

/• Funciion Name: MakeDecisions2SA 
■ Description: Decide on new compression mode from block values 

* Aigumcnis: old, new, pro - block values 

* zero - zero flag for new block 

* norms - HVS normals 

* mode • current compression mode 
« decide • comparison algorithm 

* Returns: new compression mode 
•/ 

int MakeDecis ions2S A(old , ne w , pro , lev .zero .norms .mode) 

Block new, old, pro, lev; 
Boolean zero; 
double norms(3]; 
int mode; 

{ 

Block zero_block={{0,0},{0,0}); 

int new_mode= mode == STILL || BlockZeroSA(old)?STILL:SEND, 
np=DecideSA(new,pro), no=DecideSA(new,old); 

if (ncw_mode== STILL) ncw_mode=np> =no 1 1 zero 1 1 
Block2eroSA(lev)?STOP:STILL; 

else new_mode=zero && np<no?VOID:np> =no | [ 
DecisionSA(new,old,nonnsI2]) ] | BlockZeroSA(lev)?STOP:SEND; 

rcmm(new_mode); 
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} 

/• Function Name: UpdaicCocffsSA 

* Description: Encode proposed values and write dau 

* Arguments: pro, lev, addr - proposed block, levels and addresses 

* channel, oct - co-ordinates 

* dst - destination data 

* bfjp - binary file pointer 

* Remms: alters dst[channel][addrOD] 
*/ 

void UpdateCoeffsSA(pro,lcv,addr,channel,oct,dst,bfip) 

Block pro, lev, addr; 

int channel, act; 

short •dsiI3]; 

Bits hfp; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X ++) for(Y=0:Y< BLOCK; Y++) { 
int bits=HufiimanSA(lev[X][Y]), 
kvel=abs(levpC][Y]); 
unsigned char •bytes =HuffCodeSA(lev[X]IY]); 

dst[channel][addr[X]IY]] =(shon)proIX][Y]; 

bwrite(bytes,bits,bfip); 

XtFree(bytes); 
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/• Funcuon Name: SendTreeSA 
Descnption: Encode tree blocks 
Argumenu: prcv mode - compression mode 

• X, y, Oct. sub. chancel • co-ordinates 

• empty - token mode 

• branch • tree branch number 

• Returns: acdve block indicator 
•/ 

Boolean 

ScndTrccSA(prcv_mode.x.y,oct,sub,channcl.src.dst.cmpty,branch.quani_const.bfp) 

im prcv_mode. x, y, oa, sub. channel, •empty, branch; 
short •src(3], 'dstcaj; 
double quaiu_cons; 
Bits bfp; 

{ 

Block addr. old, new, pro, lev; 
ini ijew_mode, X, Y; 

double nornis(31«{quant_consi.ihresh_const.cmp_const}; /* quant, thresh, 

compare */ 

Boolean active False; 

ReadBlockSA(new.old.addr.x.y,oct.sub.channel.src.dst): 
if (prev_modc!=VOID) { 
Boolean zero; 

CalcNorTnalsSA(oct.sub.channel.nonns.quani_const); 
zcro=ProposedSA(pro.lev.old.new. norms); 

ncw_mode=MakeDecisions2SA(old.ncw.pro.lcv.2cro.norms.prev_mode); 
swiicWiiew_mode) { 
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case STOP: 

ScndTokcnS A(prcv_modc == STILL |[ 
Bloc kZeroSA(old)?ZERO_STn-L';BLOCK_SAME.channel,sub.oci.bfp,cmpty. branch); 

break: 
case STILL; 
case SEND: 

active a True; 

ScndTokciiSA(prev_modc=' - STILL 1 1 
BIockZero(old)?NON_ZERO_STILL:BLOaC_CHANGE.channcl,sub.oci,bfip.empty.bran 
ch); 

UpdattCoeffsSA(pro,lcv,a(ldr,chaimel.oct.£lsi.bfp); 
break; 
case VOID: 

ScQdTokenSACZERO_VID.chaniiei.sub,oct,b^,einpiy,brai}di); 

ZeroCoeffsSA((lst(chaiiDel] .addr); 

break: 

} 

}clse{ 

if (BlockZcroSA(old)) new^modeoSTOP; 
else { 

ZeroCoeffsSA(dst(chaimell,addr): 
new_mode = VOID; 

} 

} 

if (oa > 0 new_mode! - STOP) { 

ini nu=OCrAVE_EMPTY, full^FULL; 

Dprinifrx = %d, y = %d, oct=%d sub-%d mode 
%d\n".x,y,oct.sub.ncw_modc): 

for(Y=0:y<2;y++) for(X=0:X<2;X + +) 

(void)SendTreeSA(new_mode.x'2+X.y»2 + Y.oct-l,sub.channcl.src,dst.«S:mi.X+2*Y,qua 
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nt_const.bfp); 

if (mi= =0CTAVE_L\1PTY new modc! = VOID) 
SendTokenSA(OCT_ZERO.channcl.sub.oct.bfp,<S:full.O); 
} 

rcrum(aciive); 

} 

/• Funciion Name: ScntlLPF_SA 

* Description: Encode LPF sub-band 

* Arguments: mode • comprtssion mode 

* Remms: encodes dau 
•/ 

void ScndLPF_SA(mode,sn:.dst.bfip,quam_conn) 

im mode: 

shon •srcC3], •dst{3J; 

Bits bfp; 

double quaiu_const: 

{ 

Block new, old. pro. lev. addr: 
int channel. channeiss3, x, y, full«=FULL. 
octsJum=3, 

si2e{2) = {SA_WlDTH> >octsJum+l.SA_HEIGHT> >ocisJum+l}: 

for(y=0:y<si2c(l];y++) for(x=0;x<si2c(0]:x + + ) { 
int empty = LPF_EMPTy ; 

for(channci =0:channel<channe,ls:channel + + ) { 
int octs s= channel !=0?2:3. 
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new_mode. X. Y. step, value, bits=0; 
double nonns(3] = {quant_consi.ihresh_consi.cmp_consi}; 

CaJcNonnaisSAfocts- 1 ,0,channcl.nonns.quaiit_const); 
stcp=norms(0] < 1.0?I.(int)nonns[0]; 

for(bits = 0, valuc=((l< <8 + SA_PRECISION)-l)/siep:valuc!=0:bits + +) 

vaJue = valuc> > 1; 
Rca£iBIockSA(new,old,addr.x,y,octs-1.0.channcl,src.clsi); 

/• Proposed •/ 

foT<X = 0: X < BLOCK;X + + ) for(Y = 0; Y < BLOCK; Y + + ) 
pro(X][Y] =old(X]rn +Quaflxi2eSA(ncw(X]m-<3ld(X]rn.step,&(Ic^ 
/* MakeDecisions */ 

Dew_mode=m(xic==STILL?STILL;DccisioiiSA(ncw,old,nonns(21) 1 1 
BlockZeroSA(lev)?STOP:SEND; 

swiich(new_mode) { 
case SE^fD: 

ScndTokcnSA(LPF_NON_ZERO.chaiinel.0,ocxs.bfp,&cmpty,0); 
UpdateCoeffsSA(pro,lev.addr,chaimeKocis,dst,bfip); 

break: 

case STILL: 

for(X=0:X<BLOCK;X ++) for(Y=0:Y< BLOCK: Y + +) { 
unsigned char 'bytes =CodeIntSA(lev(X][Y], bits); 

dst(channcilIaddr(X]rY]]=(shon)pro(X][Yl; 

bwriie(byies.biB.bfp); 

XiFree(byies); 

} 

break: 
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case STOP: 

SeiidTokenSA(LPF_ZERO. channel. 0.ocis.bfp.«S:ciDpty.O); 
break: 

} 

} 

if (mode! = STILL SlSl empty = = LPF_EMPTY) 
SendTokenSA(LPF_LOC_ZERO.ch2nnel.0.octsJum.bfip.&full,0); 

} 

} 

/* Function Name: CompressFrameSA 

• Descnpiion: Compress a Frame 

• Argumenis: mode - compression mode STILL or SEND 

• sre, dst • source and destination data 

• bfp - binary file pointer for result 

• quam_coiisi • quandzaiion parameter 
•/ 

void CompressFrameSA(mode,src.dst.bfp,quant_const) 

int mode: 

shon •src[3I, •dsi(3]; 

Bits bfp: 

double quant^const: 

{ 

int sub. channel, x. y, i. 

octsJum=3, 

si2e|21 = {SA_WIDTH> > 1 +octsJum.SA_HeGHT> > I +octsJum}; 
for(channcl=0:channel<3:channel + +) { 
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int 

frajnc_si2e{2] = {SA_W1DTH > Xchanncl = =0?0: l).SA_HeGHT> >(chanDcl= =0?0: 1 
)}. 

fTanic_arca = framc_si2e{0] •frame sizcfl]; 

for(i=0;i < frame_arca;i + + ) 
sn:{chaniicl][i] « src(chaimcl](il < < SA_PRECISION; 

Convolvc(src(chaimcl) ,Faisc,frame_5i2C.O.channcl = =0?3:2); 

) 

bwriic((char •)(tquaiu_consi.sizcof(dciublc)*8,bfp); 
ScndLPF_S A(modc.src .dst. bfp , quant_const); 
for(y"0:y<si2e{l];y+ + ) for(x-0;x<si2e{0];x + +) { 
ini cmptysEMPTY. full=FULL; 

for<chaiuiel»0;cbanDel<3;chaiuKl-i-'f) { 
ini octs = channel! s0?2:3; 

for<sub=l;sub<4:sub++) 
(void)ScndTrccSA(mode,x,y,oas-l,sub.chanxicJ,src,dst,&enapty,0,quam_const,bfip); 
swiich(empiy) { 
case FULL; 

empty = CHANNEL_EMPTY; 

brcaJc: 

case CHANNEL_EMPTY: 
ScndTokenSA(CHANNEL_ZERO.channel,sub,ocis- 1 .bfp.&ftjll.O): 
break: 

} 

} 

if (empty = = EMPTY) 
SendTokenSA(LOCAL_ZERO,channel,sub,octsJuin-l.bfip,<S:fuIl,0); 
} 

} 
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# include "xwave.h" 
^include "KJicsSA.h" 

extern void CompressFramcSA(); 

cypedef struct { 
Video src: 

char bm_namc(STRLENl; 
Boolean stillvid; 
double quam_coDst: 
} KliwCtriRec. •KlicsCtrl; 

/• Funciion Name: KlicsCtrlSA 

• Dcscripdon: Test haniBM for KlicsSA in xwave 

• Argumcius: w - Xaw widget 

* closure - compression control record 
call_data - NULL 

* Re&jms: send data to binary file 



void KlicsCtrlSA(w.closure,call_data) 

Widget w; 

caddr_t closure. call_dau: 

{ 

KlicsCtrl cirl=(KlicsCu-l)closure: 
im si2cY = SA_WIDTH*SA_HEIGHT. 
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si2cUV = SA_WlDTH*SA_HnGHT/4. i. 2; 
sbon '(ist[3]-{ 

(sbon •)MALLOC(si2eof(shon)»si2cY), 

(sbon •)MALLOC(si2eof(shon)»si2eUV). 

(shon •)MALLOCfsi2eof(shon)*si2eUV), 
}. •src(3]={ 

(shon •)MALL0C(si2cof(shon)*si2cY), 

(shon •)MALLOC(si2cof(shon)*si2eUV), 

(shon •)MALLOC(si2eof(shon)»si2eUV), 

}: 

char file_namc{STRLEN]; 
BUs bfjp; 

Booieaa tmesTme, false = False; 

for(i=0;i<sizeY;i++)dsi(0][l]=0; ■ 
for<i=0:i<si2cUV;i++) { dst(l][il=0; dsK2][i]=0; } 

sprinif(rilc_nainc. ''%s%s/%s%s\0".global- > hoinc.KLICS_SA_DIR,ctrl- > bin_namc.KLI 
CS_SA_EXD; 

bfp=bopen(file_naine, "w"); 

bwritt(&ctrl- > stillvid,l,bfip); 

buTiic(&ctrl- > sre- > si2e(2],sizeof(int)*8,bfip); 

for(2=0:2<ctri->src->si2e(2];z++) { 
GetFiaiBe(ctrl- > src.z); 

for(i=0:i<si2eY;i++) sn:[0][i]=ctrl->src->data(01[z][i]; 
for(i-0:i<si2cUV;i + -i-) { 

src(l][il =ctrl- > src- > data(l][z][i]; 

src(2][i] =cirl- > src- > daia{2][2lli]; 

} 

ComprcssFraincSA(2= =0 |j 
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Ctrl- > stilIvid?STILL;SEND.src.dst.bfp.ctil- > quam_const); 
FrccFramcfctrl- > src.z); 

} 

bflusb(bfp): 

bclose(bfp); 

XtFrcc{d5t(01): 

XiFrct(dst(lJ): 

XtFrcc((lst(2]); 

XiFrcc(src[0]); 

XlFree(src{l)); 

XiFrec(src(2]); 

) 

KlicsCtrl IniiKlicsCirKname) 

String name; 

{ 

KlicsCtrl cffl=(KlicsCtrl)MALL0C(si2tt)f(iaicsCirlRec)); 

Ctrl- >stillvid = True; 
Ctrl- > quaiu_consi=8.0; 
strqjytctrl- > bin_namc.name); 
retum(ctrl); 

} 

^define iaiCSJA_ICONS 8 
/fdefme KUCS_SA_VTD_ICONS 2 

void KIicsSA(w.ciosure.call_data) 

, Widget w: 
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caddr_t closure. call_data; 



Video video = (Vidco)closurc; 

KJicsCtrl Ctrl = InjtK]icsCtrI(vidco-> name); 

Floailnpui nt_inpuis = (Floatliipui)MALLOC(si2eof(FloaiinpuiRcc)); 

Message msg_bin=NewMessage(ctrl->bin_naine,NAME LEN); 

XtCallbackRec destroy_caJin = { 

{Frec,(caddr_t)cirl}, 

{Free . (caddr j)flt Jnpuis} , 

{GcseMessage,(caddr_i)msg_bin), 

{NULL.NULL}, 

}: 

Widget parent * FijidWidget( "fnn_compress ' .XtPareu(w)), 

shell = ShellWidget( "klicsSA" ,pareni.SW_bdow,NULL,dcstroy_calI), 
fonn= FommWidgct("ldicsSA_fonn' .shell), 
widgcts(KUCS_SAJCONSl, 
vid_widgcis[iaJCS_SA_VIDJCONSJ; 
FonnJiem iiemsQef 

{ "klicsSA_cancel" , "cancel " .0.0,FW_icon.NULLJ , 
( "klicsSA^confinn", "confinn" , 1 ,0.FWJcon,NULL} , 
{"klicsSAjide"."Run Klics SA",2,0,FWJabel.NULL}. 
{-kli«SA_binJab".'KLICS FUe: ",0,3 .FWJabcl. NULL}, 
{ "klicsSA_bin_name".NULL,4,3,FW_texi,(String)msg_bin} , 

{"kli«SA_qn_noat".NULL.0.5.FW_noat.(String)&fliJnpuis(01}. 
{ "klicsSA_qn_scroll" .NULL.6.5.FW_scrolI.(Siring)&fIl_inpuis(0]} . 
{"kIicsSA_vid_fonn'.NULL.O,7,FW_form.NULL}, 
}, vidjicms(]={ 

{ "klicsSA_ic_lab". "Image Corap: ",0.0,FW_label.NULL} , 
{••kJicsSA_ic".NULL.1.0.FW_yn.(Siringj&cirl- > stillvid}. 

}; 
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XtCallbackKcc caUbaclc5(] = { 
{ Destroy , (caddrj )sbcll } . 
(NULL.NULL}. 
{KJicsCtilSA.(caddr_t)cirl). 
{ Destroy, (caddr_t)shcll}. 
{NULL,NULL}, 

{noatIn:Dec.{caddr_t)&flt_inputs(0]}, {NULL,NULL}. 

}. vid_caJ]n = { 

{Change yN,(caddr_t)&ctrl- > stillvid} . {NULL.NULL} . 

}; 

Ctrl- >src= video: 

msg_bin->rows=l; msg_bm->cols'=NAME_LEN; 

nt_inpuis(01.fonnat="Quaiu: %4.ir; 
nt_inpuis(01.max=10; 
flt_ii?uis(0] .min»0; 

flt inpuis[0]. value = &cxrl- > quant_coDSt: 



FillFonn(fonn.iCLICS_SAJCONS-(video- > si2e(2] > 1?0: l),items.widgcis,callbacks): 
if (video- >si2e[21>l) 

FillFonmwidgcts(71,KLICS_SA_VID_ICONS,vid_iiems,vid_widgets.vid_call): 
XtPopup(sheU.XtGrabExciusivc); 

} 
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Memory allocation rouiine 

•/ 

^include <stdio.h> 
char 'MALLOasize) 
im size; 

{ 

char •ptr'=(char •)calIoc(l,si2e); 

if (ptr= =NULL) EprintfC Unable to allocate %d byies of memciyNn'.size); 
retum(pir); 

} 
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source/Menu.c 



Pull-Right Menu fimcuons 



^include <stdio.h> 

^include <Xll/IminsicP.h> 

^include <Xll/StringDefs.h> 

#include <X11/Xaw/Xawlnii.h> 

^include <Xll/Xaw/SiinplcMcnP.h> 

^include <Xll/Xaw/CominaiidP.h> 



static void prPopupMemiO; 
static void NotifylmageO; 
static void PrLcave(); 

void InitAction3(app_con) 

XiAppContext app_con: 

{ 

sutic XtActionsRec actions{] = { 
{ " prPopupMcnu " .prPopupMcnu } , 
{ "notifyImagc",NotifyImagc} . 
{"prLcave".PrLeave}, 

}; 

X lAppAddActionsi app_con. actions .XtNumbert actions ) ) ; 
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} 

suuc void prPopupMcnu(w.cvcm.params.nura_params) 

Widgei w: 
XEveni • event: 
String * params: 
Cardinal * nmn_params; 

{ 

Widget menu, temp; 
Arg arglist(2); 
Cardinal num_args; 

ini menu_x. menu __y, nienu_width, menu_heighi, button width, button height; 
Position button_x, buttoa^y; 

if (•numjjarams! =» 1) { 

char erTor_buflBUFSIZJ; 

sprintf(crTor_buf, "prPopupMcnu: %s. "Illegal niimber of translation 
arguments'); 

XtAppWaming(XtWidgetToApplicationComcxt(w), crior^buf); 
rcnim: 

} 

temp = w; 

whiledemp != NULL) { 
menu = XtNamcToWidgct(temp, params(0]); 
if (menu == NULL) 

temp = XiParem(terap); 
else 

break: 

} 
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if (menu = = NULL) { 
char crTor_buf[BUFSIZl; 
spriiid'(crTor_buf, "prPopupMemi: %s %s.", 

"Could not find menu widget named". param5(0]); 
XtAppWarnmg(XtWidgeiToApplicationConicxi(w), error_buf); 
remm: 

} 

if (!XtIsReaJi2cd(mcnu)) 
XtRcaJizcWidgci(mcxiu); 

menu widih = menu- > core. width + 2 • menu- > core. border_width: 
button width = w-> core. width + 2 • w- > core.border_widih; 
button_hcighr = w->core.heighi + 2 • w->core.bordcr_width: 

mcnu_hcight = menu- > core.hcighi + 2 * menu- > core. bcrder_width: 

XiTranslaieCoords(w, 0, 0, &buoon_x, &buiion_y); 

mcnu_x = bution_x; 

mcnu_y = bution_^ + bution_hcighi; 

if (mcnu_x < 0) 

mcnu_x = 0; 
else { 

im scr_widih = WidthOfScreen(XiScreen(mcnu)); 
if (menu_x + mcnu_widlh > scr_width) 
mcnu_x = scr_width - mcrai_width: 

} 

if fmenu_y < 0) 

menu_y = 0; 
else { 

int scr height = HcightOfScrecn(XtScreen(menu)); 
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if (mcnu_v + mciju_hciglii > scr_heigbi) 
mcnu_y = scr_height - menu_heighr; 

} 

num_args = 0; 

XtSetArg(argli5i{nuin_args], XiNx, menu_x); nuni_args + + ; 
XtSctArg(arglist[num_argsJ, XtNy. mcnu_y): num_args + + : 
XtSetValues(mcnu. arglist, nuin_args); 

XtPopupSpriiigLoadcd(mcnu); 

} 

/• 

static void 

prRealize(w, mask, ann) 
Widget w; 
Misk 'mask; 

XSctWindowAnribuies *atjrs; 
{ 

(•superclass- >core_class.«aIi2e) (w, mask, ann); 
'/ 

/• Wc have a window now. Register a grab. •/ 
/♦ 

XGrabBunon( XtDisplay(w), AnyButton. AnyModifier. XlWindow(w), 
TRUE. ButtonPressMasklButtonReleaseMask, 
GrabModeAsync, GrabModeAsync. None. None ); 

} 

•/ 

static void NotifyImagc(w,event.params.nuinj)aranis) 

Widget w: 
XEvent •event: 
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Siring *params: 

Carduial *TTUiD_parains: 

{ 

CommandWidget cbw=(ConuiundWidgct)w; 

if (cbw-> command. set) XtCaJlCaJIbaci£ij5t(w,cbw.>command.calJbaclcs. event); 

} 

sialic void PrLcave(w.cvcnt.params.numj3aranis) 

Widget w; 
XEveni 'event: 
String •params: 
Cardinal 'mun^paiams; 
{ 

SimplcMcnu Widget sraw=(SimpleMenuWidget)w; 
Dprintf( "Prljcave\n "); 

} 
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source/Message.c 



* Message I/O Utility Rouiines 
•/ 

/J'includc "../includc/xwavc.h" 
^include < vanxgs.b > 

^define MESS_ICONS 3 

void TextSize(mag) 

Message msg; 

{ 

int maxJeoeO; 
char •texts msg- >info.pir; 

msg- > rows = 0; 
msg- > cols =0; 
do { 

if (texi(i] = = '\n' 1 1 iexi(il = = '\0') { 

if (msg- > cols > max_len) maxjcn=msg- > cols; 
msg- > cols =0; 
msg- > rows 4- + : 
) else msg->cols + + ; 
} while (text(i]! = '\0'); 
if (i>0) if (texi(i-l) = = '\n*) msg->rows-; 
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msg- > cols = max_len: 

} 

Message NcwMessagc(icxi.si2c) 

char 'texi; 
int size: 

{ 

Message msg = (Mcssage)MALLOC(si2eof(McssageRec)) ; 

msg- > shell = NULL; 
msg- > widget = NULL; 
msg- > info.firstPos-O; 

if (! (msg- > own_tcxt = text = = NULL)) msg- > info.ptr = text; 
el«{ 

msg- > info.ptr = (char •)MALL0C(si2e+l); 
m3g-> info.ptr(0] = '\0*; 

) 

msg- > info, format = FMTBBIT; 

msg- > info. length =0; 

msg- > rows =0; 

msg->colsBO; 

msg- > size = size; 

msg- > edit" XawtextEdit: 

rrium(msg); 

} 

void CloscMcssage(w.closure.call_dau) 

Widget w: 

caddr t closure. call_data; 
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{ 

Message msg = <Mcssagc)ciosure; 

Desiioy(w,(caddr_t)nisg- > sheil.NULL); 
if (msg- > own_texi) Xtf ree(msg-> info.pir); 
XtFrec(insg); 

} 

void Message Window(paTeDi,msg,tiiJe,closc,call) 

Widget parent: 
Message msg; 
char 'title; 
Boolean close; 
XtCallbackRec caUQ; 

{ 

Widget fonn, widgcts[MESSJCONS]»={NULL,NULL,NULL}; 
Fonnltem itcinsO"{ 

{ "insg_cancel " /cancel " ,0,0,FW_icon,NULL} , 

{ 'msg_labcr .title. 1 ,0,FWJabel.NULL} . 

{ " msg_msg " ,NULL.0.2 .FW_tcxt, (String)insg } , 

}; 

msg- > edit = XawicxiRead; 

msg- > shell = ShcllWidgei("msg" .parcni,parcnt= =global- > ioplcvel?SWjop:SW_below, 
NULL.NULL): 

form= FonnatWidget("msg_fonn". msg- > shell); 

FillForm«tonn.MESSJCONS-(close?0:l),&items{close?0:ll,&widgetslclose?0:ll,call): 
XiPopupimsg- > shell.XtGrabNone): 

Copied from 10340491 on 04/01/2005 
^PRRTITIITF ?.HEET (RULE 261 



wo 94/23385 



PCr/GB94/OMT7 



- 260 - 

MflusWmsg); 

} 

void Mflush(msg) 
Message nug; 
{ 

if (global-> batch- -NULL && msg- > widgei! - NULL) { 
Display •dpy=XiDisplay(global- > toplcvd); 
ini i. lines=0; 
Arg argsdJ: 

for(i=rasg-> info.lengili-l:lines< msg- > rows &Jl i> =0:i-) 

if (msg-> info.pti(i] = = '\n' &Jt i!=msg->info.lengxh-l) lines + + ; 

if (msg- > info.ptr[i] = = '\n') i + + ; 
sticpy(rasg-> info.ptr,&msg-> info.ptr(i]); 
msg-> iDfo.lengtb--'i: 

XiSeiAig(args(0],XiNstring,msg- > info.ptr); 
XSynctironi2e(dpy,Tnie); 
XtSelValucs(msg- > widgei.args.ONE); 
XSynchronizc(dpy.Falsc); 

} 

} 

void mprimftmsg.ap) 

Message msg; 
va_lisi ap; 
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char 'fonnai: 

form2i=va_arg(ap.char *); 

if (global- > batch! = NULL) vpriDtf(forma:.ap); 

else { 

char iext(STRLENl: 
int i: 

vspriiitf(texi,fonnai,ap); 

i = strlcn(text) + msg- > info, lengih-nug- > size; 

if(i>0){ 

sm:py(msg-> info.ptr,&insg-> info.ptr(il); 
insg-> info.lengih-=i; 

} 

scrcai(nisg-> info.ptr.text); 
msg- > info.length+ •strlen(text); 

} 

} 

void Dprinrf(va_alist) 
va_dcl 

{ 

va_list ap; 

if (global- > debug) { 
char 'formal; 

va_stan(ap); 

format = va_arg(ap.char *); 
vprintffformai.ap); 
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va_cnd(ap); 



void Mpnmf(va_aiist) 



va del 



{ 

va__Iisi ap; 
Message msg; 



va^sian(ap); 

msg = va_arg(ap,Message); 

mprintfdnsg.ap); 

va_end(ap); 



void Eprinif(va_alist) 



vadcl 



va_lisi ap; 
Message msg; 
ini rows, cols; 



va_st2n(ap); 

msg = NewMessage(NULL.STRLEN): 

mprimtYmsg.ap); 

if (global- > batch = = NULL) { 

XtCallbackRec callbacics{] = { 
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{ CloseMessage , (caddr_t )nisg } , 
{NULL.NULL}. 



Texts i2c(msg); 

Message Window(global- > toplevel.msg,"Xwave Error". Tnie.caJIbacks); 

} 

va_end(ap); 

} 
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source/Namefiunon.c 



/* 

• Supply MenuBunon widget id to PullRightMenu bunon resource 
•/ 



^include "../include/xwave.h" 

void NamcBuaon(w, eveni, params. iium_parains) 

Widgei w; 
XEvem •event; 
String ^pamns; 
Cardinal *num_paiams; 



{ 



MenufiutioD Widget nibw»(MenufiuttonWidget) w; 
Widget menu: 
Arg argsIU; 
String name; 

XtSetArg(args(0],XiNmenuNaine.i:name); 
XtGeiValues(w,args,ONE); 

DprintfCNameflimon: looking for PRM %s\n".name); 
menu = Find Widgei( name .w) ; 
if (menu ! = NULL) { 

DprintfrNamcBunon: setting Menu Buiion\n"); 

XtSetArg(args[0] .XiNbunon. w); 

XiSetValues(menu.args,ONE); 

} 
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source/P2lette.c 



* PaJcne re -mapping 
♦/ 

#include "../includc/xwave.h" 

/♦ Function Name: Re Map 

* Description: Re-maps a pixel value to a new value via a mapping 

* Argumcms: pixel - pixel value (0..max-l) 

• max - range of pixel values 

• map - palette to recede with 

• Returns: remapped pixel value 
•/ 

ira ReMap(pixel.max,paleae) 

int pixel, max: 
Palette palette; 

{ 

Map map = palette- > mappings; 
int value -pixel: 
Bc}olean inrange = False: 

while(map! = NULL&& 'inrange) { 

if (pixel > = map- > Stan && pixeK =map-> finish) { 
inrange =Tnie: 

va lue = map- > m*pixel + map- > c ; 
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} 

map = map- > next: 

} 

rcturnt vaJue < 0?0: value > =Tnax?max-l : value); 



Funciioo Name: FindPalene 

Descnpuon: FiDd a paJenc from a list given the index 

Arguments: palette - the palette list 

index - the index number 
Reniras: the paicae corresponding to the index 



Paleae FiodPaieaeCpaJeoe.index) 

Palette paleae; 
ixu index: 

{ 

whilcdndcx > 0 paJctie- > next! = NULL) { 
index-; 

palenc = palette- > next; 

} 

rcwni(paletie); 



/" Function Name: ReOrderPaicttes 

• Description: Reverse the order of the palette list 

• Arguments: start, finish - the sian and finish of the re-ordered list 

• Remms: the palette list in the reverse order 
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PaJene ReOrdcrPaJcacs(sian. finish) 
Palette Stan, finish; 

{ 

Palcae list = finish- > next; 

if (list! = NULL) { 

f aish- > next = i ist- > next; 

list- > next = Stan; 

stan= RcOrdcrPalcncs(lisi.finish); 

} 

renini(stan): 
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source/Parse. c 



• Parser for xwave input files: .elo 
"/ 

^include "../includc/xwave.h" 
^include "../includcyCram.h" 

void Parseipa±.file.exi) 

String path, file, ext.* 

{ 

char filc_namc{STRLEN]; 

sprijufrfile_naiiie."7cs«s/%s%s\0",global->hoine.path,file,ext); 

Dprmif("Parse: parsing file %s\n".file_nanie); 

if (NULL= =(globaJ->parse_fp=fopcn(file_nanie."r"))) 

EprinifCParse: failed to open input file %s\n".filc name); 

else { 

sprintf(file_naine, " 7cs %s\0" .file.exi); 
global- > parse_files=file_nanie: 
global- > parse_token=ext; 
yyparseO; 

fclose(global- > parsc^fjp); 

DprimfrParse: finished with %s\n",file_nanic): 
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void ParseCtrKw, closure, caJl_data) 

Widget vv; 

caddr_t closure. call_data: 

{ 

Pai5c( " . " , ((XawListRcturnS cruel •)cai]_data)- > srring,(Striiig)closure); 

} 

int Parseliipui(fp) 

FILE *fp: 

{ 

int aum; 

if (giobaJ- > parsc_token! = NULL) 

if (globaJ- > parsc_iokMi(OJ » = '\Q') { 
num=(ini)'\n'; 

global- > parse_token» NULL; 

)dse{ 

num = (im)global- > parse jokcn[0] ; 
global- > parsejoken-h + ; 

) 

else if (EOF--(nuni=g«c(gIobal->parse_fp))) num = NULL; 
rctumCnum); 

} 
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source/Pop2.c 



/• 

Global caJlback2 for popping popups and allsorud utilities 

•/ 

^include "../includc/xwavc.h" 

void Desiroy(w,closure.call_data) 

Widget w; 

caddfj closure, call^daia; 

{ 

Widget widget =(Widget)clonxre; 

if (widget! = IWLL) XtDestroy Widget(widget); 

} 

void Quit(w. closure, call_daa) 

Widget w; 

caddr t closure. caU_data: 

{ 

XtDestroy ApplicaiionComexi(global- > app_con); 
cxiiO; 

} 

void Frcciw.closurc.call_data) 

Copied from 10340491 on 04/01/2005 



wo 94/233«S 



PCT/CB94;00677 



- 271 - 

Widgci w; 

caddrj closure. ca]l_daia; 

{ 

if (closure! = NULL) XtFrce(closure); 

} 

Widget FindWidget(namc. current) 

String name; 
Widget cuTTcni; 

{ 

Widgci target- NULL; 

while<cunKii! = NULL) { 

target = XtNamcToWidget(cuncm,naine); 

if (targ«= = NULL) cuiient=XlParem(curTent); 

else break: 

} 

if (targets = NULL) { 

EprinifCCam find widget: %s\n",naine); 
target = global- > topievei: 

} 

renjm(target); 

} 

^define NA_ICONS 2 
void NA(w,closurc.cail_dau) 
Widget w; 
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caddr_t closure. caJJ_daia: 

{ 

Widget 

shell = ShellWidgei("na_sheII".OVidgei)closure.SW_below.NULL.NULL). 

form = Formal WidgcK "na_form " .shell), widgeu{NA_ICONS] ; 
Formltem itemsQ = { 

{"na_coQrinn"."confinn".O.O.FWJcon.NULL), 
("naJabeI"/This funciion is not available",O.I,FW label.NULL} 

}: 

XiCallbackRec caUbacicsn = { 

{Dcstroy,(caddr_t)shcll), {NULL.NULL). 

}; 

FilIFonn(fonii.NAJCONS,itcms,widgcts,calJbadcs); 
XtPopup(shcIl,XiGrabExclu5ive); 

) 

void SetScnsiiive(w.closure.calI_data) 

Widget w; 

caddrj closure. caJl_data; 

{ 

XtSetSensitive((Widget)closure.True); 

} 
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soiirce/Process.c 



Call sub-proccsses 

•/ 

^include "../iMlude/xwave.h" 

^include <sigi)al.h> 

#inciude < sys/waii.h > 

^include < sys/time.h > 

^include <sys/resourcc.h> 

/• Function Name: Fork 

* Description: Executes a file Id a pnxess and waits for tennination 

* Arguments: argv - standard argv argument description 

* Returns: dead process id 



int Fork(argv) 
char "argvn; 

{ 

int pid: 

union wait statusp; 
struct rusagc rusage; 



if(0==(pid = fork())) { 

execvp(argv[0],argvJ: 
cxitO: 
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} else if (pid>0) waii4(pid.&siarusp,0.&ru5age); 
reniraipid); 

} 

/" Funcuon Name: zropen 

• Descnpiion: Open a file (or .Z file) for reading 

• Argumenis: file_naine - name of the file lo be read 

• pid - pointer to process id 

• Remms: file pointer 
*/ 

FILE •zropcmfile^name.pid) 

char •file_namc: 
int *pid; 

{ 

char z_namc{STRLEN]: 

String 2cat(] = {"2cai",2_naine,NlJLL}; 

HUE 'fp: 

if (NULL==(fip=fopcn(nic_naiiie,"r"))) { 
static int up[2]; 

sprimf(2_name, " %s.Z",rile_name): 
pipe<up): 

if(0!=rpid = fork())) { 

Dpriniff" Parent process startedXn"); 

close(up[l]); 

fi3 = fdopcn(up(0],"r"); 

} else ( 

Dprimfr' Running zcat on %s\n".2cai|l]); 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/0M77 



} 



rcrurn(^); 
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closdupfO]); 
dup2( up(l]. 1 ); 
close( up(l] ); 
cxecvp(zcai|0],2cat); 



/* Function Name: zseek 

* Description: Fast-forward thru file (fscck will not work on pipes) 

* Arguments: fp • file pointer 

* bytes - bytes to skip 



void 2seek(^.byies) 

FILE 'fp; 
int bytes; 

{ 

char scratch[1000]: 
ini i; 

while(bytes>0) { 

int amoum=bytes> 1000?1000:byies: 

fread(5cratch.sizeof(char). amount, fp) ; 
bytes- « amount: 

} 
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void zclose(fp.pid) 

FILE -fp: 
int pid: 

{ 

union wait sucusp; 
struct msage rusage; 

fclosc(fp); 

if (pid!=0) waii4<pid,&siamsp.0.&rusage); 

} 
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#if ( Idefmcdnini) && !dcfined(SABER) ) 

5Uiic char Xrcsidf] = "SXConsonium: PullRjghiMcnu.c.v 1.32 89/12/11 15:01:50 kit 

Exp J": 

#cndif 

/• 

• Copyrighr 1989 Massachusetts Institute of Technology 

• Permission to use, copy, modify, distribute, and sell this software and its 

• documentation for any purpose is hereby granted withom fee, provided that 

• the above copyiiglu notice appear in all copies and that both that 

• copyright notice and this permission notice appear in supporting 

• documentation, and that the name of M.I.T. not be used in advertising or 

• publicity peroining to distribution of the software without specific, 

• written prior pcimisaion. M.I.T. makes no representations about the 

• suitability of this software for any purpose. It is provided "as is" 
" without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE. 
INCLUDING ALL 

' IMPUED WARRANTIES OF MERCHANTABILITY AND RTNESS. IN NO 
EVENT SHALL M.I.T. 

• BE UABLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE. DATA OR PROFFTS. 
WHETHER IN AN ACTION 

• OF CONTRACT, NEGUGENCE OR OTHER TORTIOUS ACTION. ARISING OUT 
OF OR IN 
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• CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
*/ 

/• 

• PuIlRightMenu.c - Source code fiJe for PullRightMenu widget. 
*/ 

^include <stdio.h> 
#iiiclude <Xll/lntrmsicP.h> 
^include <Xll/StringDefs.h> 

^include < XI I/Xaw/Xawlnit.h > 
^include <Xll/Xaw/SiiiipleMenP.h> 
#mclude "PullRightMenuP.h" 
^include <Xll/Xaw/SmeBSB.h> 
#mclude "SmeBSBpr.h" 
#include <X11/Xaw/Cardinals.h> 

^include <X11/Xmu/Initer.h> 
#inc]ude <Xll/Xmu/ChaTSet.h> 

#define sireq(a, b) ( strcmp((a), (b)) = = 0 ) 

^define offset(field) XtOffset(PullRightMenuWidget, simple_menu. field) 

static XiResource resourcesQ = { 

/• 

* Label Resources. 
*/ 
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(XiNIabcl, XiCLsbel. XiRString. sizeoffString). 

offseUlabel_smDg), XtRString, NULL}. 
{XiNlabclClas5. XtCLabelClass. XiRPointer, si2cof(WidgctClass). 

off5ct(labcl_cla3s). XiRImmcdiate. (caddrj) NULL}, 

/• 

• Layout Resources. 
"/ 

{XtNrowHcighr, XtCRowHcight, XtRDimension, si2cof(Dimcnsion), 

cffsct(row_hcighi), XiRImmcdiate, (caddrj) 0}, 
{XtNiopMargin, XlCVcnicalMargins, XtRDimension. sizcofCDimcnsion), 

offset(top_margin), XtRImmediate, (caddrj) 0}, 
{XtNbotiomMargin, XtCVenicalMaigins, XtRDimension, si2eof(Dimcnsion), 

offset(bottora_margin), XtRImmediate, (caddrj) 0}, 

/• 

* Misc. Resources 
•/ 

{ XiNallowShcllResize. XiCAllowShellResize, XtRBoolcan. si2eof(Boolcan). 

XtOffseKSimpleMenu Widget, shcll.ailow_shell_rcsi2e), 

XtRImmediate, (XtPoinier) TRUE }. 
{XtNcursor. XtCCunor, XtRCursor, sizeoftCursor), 

offset(cursor), XtRImmediate. (caddrj) None}, 
(XtNmenuOnScreen. XtCMenuOnScrcen, XtRBooiean, sizeof(Booiean), 

offset(mcnu_on_screcn), XtRImmediate, (caddrj) TRUE}. 
(XiNpopupOnEntry, XtCPopupOnEntry. XiRWidgei. sizcoffWidget), 

offscKpopupjniry). XtRWidgel. NULL}, 
(XtNbackingStorc, XlCBackingStore. XtRBackingStore. sizeof (int), 

offset(backingjiore). 

XtRImmediate. (caddr t) (Always + WhcnMapped + NotUseful)}, 
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{XiNbunon. XiCWidget. XtRWidgci, siicoftWidget). 
offscUbunon), XiRWidgct. (XtPoinicr)NULL}. 

}; 

ffunitf offset 

sialic char defauJtTranslaiionsd = 

" < Enter Window > : highJight() \n\ 
< Leave Window > : puUQ \n\ 
<BmMoiion>: highlightO \n\ 
<BaiUp>: cxecutfiQ"; 

/• 

• Semi Public function definitions. 
•/ 

static void RedispiayQ, ReaJizcQ. ResizeQ. ChangcManagcdQ; 
sutic void IniiializeO. ClaMlnitializcQ. ClassPanlnitializeO: 
static Boolean SetVaJuesQ. SetValucsHookQ: 
static XtGeometryResuit GeomctiyManagerO: 

/• 

• Action Routine Definitions 
•/ 

sutic void HighlightO. Unhighlight(). Pull(). ExccutcO, NotifyQ, PositionMenuActionO; 
/• 

• Private Function Definitions. 
*/ 

static void MakeSetValuesRequesU). CreateLabeiO, LayoutO; 

static void AddPositionActionO, PositionMcnuO, ChangeCursorOnGrabf); 
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Sialic Dimension GctMcnuWidthO. GeiMenuHcighU); 

sialic Widgci FindMcnu(); 

suiic SmeObjeci GeiEvcniEniryO; 



sialic XtActionsRec aciionsLisi(] = 
{ 

{"pull". Pull), 
{"cxecuic", Exeoiie}, 
{"noiify", Notify}, 
{"highlight', Highlight}, 
{"unhighlight". Unhighlight}. 

}; 



ComposiirClassExtcnsionRec pr_extension_rec = { 
/• Dext_exxension •/ NULL, 
/• record_iype •/ NULLQUARK, 
/• vcnion */ XtCompositeExtensionVersion, 
/• rca3Td_si2e */ sizeof(CoinpositeClassExtensionRec), 
/• accepts_objects */ TRUE, 



/^define superclass (&overhdeShcIlCIas5Rec) 

PullRighiMcnuClassRcc pullRighiMcnuCIassRec = { 
{ 

/* superclass */ (WidgetClass) superclass. 

/• class_naiiie •/ "PullRightMcnu", 

/• size */ sizeof(PullRighiMenuRcc), 

/* dass^iniiialize */ Classlnitialize, 

/• classj)an_initializc*/ ClassPariiniiialize, 

/• Class init'ed V FALSE. 

/* iniiialitt */ Initialize. 
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/• iniiializc book ".' NULL, 
/* rcaJize "/ Realiic. 

/• acuons */ acdonsLiii, 

/• nura acuons */ XiNumbcr(ac«onsLisi). 
/• resources '/ resources. 

/• resource couni */ XiNumbert resources), 
/* xnn_class */ I^OJLLQUARK. 

/• conipress_mouon •/ TRUE. 
/• comprcss_exposure •/ TRUE, 
/* comprcss_cmCTlcave*/ TRUE. 
/* visible inieresi •/ FALSE. 
/• destroy */ NULL, 

/• resize *l Resize, 

/* expose •/ RedispUy, 

/* set values */ SetValues. 
/• set_vaJucs_hook •/ SctValuesHook. 
/• set valucs_alniosi */ XtlnherixSeiValuesAImosi. 
/• gct_vaJues_hook ♦/ NULL, 
/• accept Jocas V NULL, 
/• inirinsics version •/ XtVersion, 
/• caUback offsets •/ NULL. 
/• on uble •/ defauUTranslaiions, 

/♦ query _gcomeiry */ NULL, 

/• display_accelcraiorV NULL, 
/• extension *l NULL 
}.{ 

/* geometrY_manager */ GcoinctryManager, 
/• changc_managed •/ ChangcManagcd, 
/' insen_child */ XtlnheritlnsenChild. 
/• delete child */ XiInheritDelcteChild. 
/• extension */ NULL 

}.{ 
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/• SheU cxicnsion •/ NULL 

}.{ 

/* Override extension */ NULL 
}.{ 

/* Simple Menu extension*/ NULL 

} 

}; 

WidgctCIass pullRigbtMenuWidgetClass = (WidgetCIass)&pulIRightMcnuCIa5sRcc; 



• Semi-Public Functions. 

— • / 

/* Function Name: C!as<fnin'alize 

* Description: Class Initialize routine, called only once. 

* Arguments: nose. 

• Rcnims: none. 
•/ 

static void 

ClassinitializeO 

{ 

XawIniiializeWidgctSeiO: 

XtAddConvencr( XlRString, XiRBackingStorc, XmuCvtStringToBackingStore, 
NULL. 0 ): 

XmuAddInitiali2er( AddPosiiionAcrion. NULL); 

} 

/• Function Name: Classlnitializc 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/0M77 



- 284 - 

Description: Class Pan Initialize routine, called for every 
subclass. Makes sure that the subclasses pick up 
the extension record. 

• Arguments: wc - the widget class of the subclass. 
Rcmms: none. 

•/ 

static void 

ClassPartIniiiaii2c(wc) 
WidgctClass wc; 
{ 

SimpleMenuWidgeiClass smwc = (SimplcMenuWidgctClass) wc; 

/• 

• Make sure that our subclass gets the extension rrc too. 
*/ 

pr_exiension_rec.next_cxiension = smwc->composiic_class.exiension; 
smwc->composite_class.extension = (caddr_t) &pr_extension_rec; 

} 

/* Function Name: Initialize 
" Description: Initializes the simple menu widget 

• Arguments: request - the widget requested by the argumem list. 

• new • the new widget with both resource and non 

• resource values. 

• Returns: none. 
•/ 

/♦ ARGSUSED •/ 
static void 

Initialize! request, new) 
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Widget request, new; 

{ 

SimpieMcnuWidgci stnw = (SimpleMcnuWidgct) new; 

XmuCallInjtiaJizers(XiWidgetToApp]icaiionConicxi(new)); 

if (smw- > simpic_menu.label_class = = NULL) 

sraw->simple_mcnu.label_class = sracBSBObjectClass; 

smw- > simplc^menu.label = hfULL; 

smw- > simple_menu.entry_set = hJULL; 

smw- > siinple_mciui.recursive_set_vaJuc8 = FALSE; 

if (smw- > simplc_mniu.labcl_string ! = NULL) 
CreaicLabcKnew); 

smw- > simple_menu.menu_width = TRUE; 

if ($mw->core.width ==» 0) { 

smw- > simplc_maiu.menu_widih = FALSE; 
smw- > core, width = GeiMenuWidth(new. NULL); 

} 

smw- > sirapie_mcnu.mcnu_heiglu = TRUE; 

if (smw- > core .heigh! ■« 0) { 

smw- > siraple_mcnu.menu_height = FALSE; 
smw- > core. height = GetMcnuHeighi(new); 

} 

• Add a popup_callback routine for changing the cursor. 
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-/ 

XiAddCaJlback(ncw. XLNpopupCallback. ChaDgeCursorOnGrab, NULL); 

} 

/• Funcuon Name: Redisplay 

* Dcscripuon: Redisplays the coniems of the widget. 

* Argumcnis: w - the simple mcmi widgci. 

* event • the X event that caused this redisplay. 

* region - the region the needs to be rep&imed. 

* Returns; none. 



/* ARGSUSED •/ 
static void 

Redisplay(w, event, region) 
Widget w; 
XEvent • event; 
Region region; 
{ 

SiraplcMenuWidget smw = (SimpleMenuWidget) w; 
SmeObject • cnny; 
SmeObjectClass class: 

if (region = = NULL) 

XClear Window(XtDisplay(w). XtWindow( w)) ; 

/• 

* Qieck and Paint each of the entries - including the label. 
•/ 

ForAllChildrenfsmw. entry) { 
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if (region ! = NULL) 

swiicWXRrctlnRegiom'rtgion. (int) (•entry)- > rcctaneJc.x, 
(ini) ("entry)- > rectangle. y. 
(unsigned int) (•entry)- > rectangle. width, 
(unsigned int) (•cntry>>recianglc.heighi)) { 

case Rectangleln: 
case RectanglePart: 

break: 
default: 

cominue; 

. } 

class » (SmcObjeciClass) (•entry)- > objea.widget_class: 

if (class- > rea^class .expose ! = NULL) 

(class- >rea_class.exposc)( (Widget) •entry, NULL, NULL); 

} 

> 

/• Function Name: Realize 

• Description: Realizes the widget, 

• Argumenu: w • the simple menu widget. 

• mask • value mask for the window to create. 

• atn - attributes for the window to create. 

• Returns: none 
•/ 

static void 

Reali2e(w, mask, aitrs) 
Widget w: 

XtValueMask • mask: 
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XSeiWindowAnribuies • ann: 

{ 

SirapleMenuWidget smw = (SimplcMenuWidget) w; 

atn5-> cursor = smw- >siniple_mcnu. cursor; 
•mask I = CWCursor; 

if ((sraw->siinple_mciiu.backing_siore = = Always) 1 1 
(smw- > siinplc_mexui.bacidiig_siore = = NotUsefuJ) 1 1 
(smw->simple_menu.bacldng_store == WhenMappcd) ) { 
*mask I » CWBackingStore: 

ann- > backing_stcre = sniw->simple_incnu.backing_store; 

} 

else 

•mask*- -CWBacldngStore; 
(•superclass- >corc_class.rcali2e) (w, mask, ann); 

} 

/* Function Name: Resize 

* Description: Handle the memi being resized bigger. 

* Arguments: w - the simple menu widget. 

* Rcnims: none. 



static void 
Resi2e(w) 
Widget w; 

{ 

SimpleMenu Widget smw = (SimplcMenuWidget) w; 
SmeObject • enny; 

if ( !XtIsReali2cd(w) ) remm: 
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ForAUChildrcn(smw. cniry) /" reset width of all entnes. "/ 
if (XiIsManaged( (Widget) •entry)) 

(•entry)- >rccunglc. width = sraw-> core, width: 

Redisplay(w. (XEvent ") NULL. (Region) NULL); 

} 

/• Function Name: SetValues 

• Description: Rclayout the menu when one of the resources is changed. 

• Argumcnis: cuntnt - cunrni state of the widget. 

* request • what was requested. 

new - what the widget will become. 

* Retunis: none 
•/ 

/• ARGSUSED •/ 
static Boolean 

SeiValues(currem, request, new) 
Widget cuncm, request, new; 

{ 

SimplcMcnuWidget smw_old = (SimpleMenuWidget) current; 
SimplcMcnu Widget smw_new = (SimpleMenu Widget) new; 
Boolean ret_val = FALSE, layout = FALSE: 

if (IXtlsRcalizedCcurrem)) remm(FALSE); 

if (!smw_new->simple_menu.rccursive_sei_values) { 

if (smw new- > core. width != smw_old-> core. width) { 

smw new->simple_mcnu.menu_width = (smw_ncw- > core. width != 0); 
layout = TRUE; 

} 

if (smw new- > core. height != smw_old-> core. height) { 
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smw_new- > simple_menu.menu_height = (smw_new-> core. height != 0); 
layout = TRUE; 



if (sraw old- > simplc_mcnu. cursor ! = smw_new- > siinplc_mciiu. cursor) 
XDefineCur5or<XlDisplay(ncw), 

XtWuidow(ncw), sraw_new- > simple_menu. cursor); 

if (smw_old- > siinplc_meim.label_string ! = smw_ncw- > simple_incxiu.label_string) 
if (sraw_ncw- > simplc_innni.labcl_string ■ - NULL) /• Destroy. */ 

XtDcsiToy Widget(smw_old« > simple^menu.label); 
else if (sn}w_old->siinplc_mcnu.label_siring =« NULL) /* Create. •/ 

CreaieLabel(new); 
else { /• Change. •/ 

Arg argstU; 

XtSetArg(args(0], XiNlabel, 6xnw_ncw- > siinple_menu.Iabel_siring); 
XtSctVa!ucs(smw_new- > simple^mcnu.label, args, ONE); 

} 

if (smw_old->siniple_mcnu.label_class != smw^new- > simplc_raciui.label_class) 
XtAppWaniing(XtWidgctToAppIicationContext(new), 

'No Dynamic class change of the SimpleMenu Label."); 

if ((sraw_old- > siraple_mcnu.top_margin ! = sinw_new- > simplc_menu.top_margin) 

(smw old->simple_menu.bonom_margin ! = 

smw ncw->simplc_mcnu.bonom_margin) /• filler ♦/ ) { 

layout = TRUE; V 
ret_val = TRUE: 

} 
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if (layout) 

LayouUncw, NULL. NULL); 

reruni(rct val); 



Funcrion Name: SeiVaJuesHook 

Duchpiion: To luodie a special case, this is passed the 

lymiai aiguinenis. 
Argumems: w • the memi widget 

argiist - the argument list passed to XtSetValues. 

num_args • the number of args. 
Returns: none 



* If the user acually passed a width and height to the widget 

* then this MUST be used, rather than our newly calailated width and 

* height. 
•/ 

static Boolean 

SctValuesHook(w, argUst. num_args) 

Widget w; 

ArgList argiist: 

Cardinal *num_args; 

{ 

register Cardinal i: 
Dimension width, height; 

width = w-> core, width: 
height = w-> core, height; 
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for ( i = 0 ; i < •nuin_args ; i + +) { 
if ( sireq(ajglist(i).name. XtNwidih) ) 

width » (Dimension) aiglistfi]. value: 
if ( strcq(arglisini.name. XiNhcighl) ) 

height - (Dimension) arglist[i]. value; 

} 

if ((width !=■ w-> core. width) 1 1 (height != w-> core. height)) 

MakcSctVaiuesR£quest(w, width, height); 
rcmm(FALSE); 

} 

/ 

• Gcomeny Management rouones. 


/* Function Name: GeometryManager 

• Description: This is the SimplcMenu Widget's Geomcuy Manager. 

• Arguments: w . the Menu Entry making the request. 

• request • requested new geometry. 

• reply - the allowed geometry. 

• Rcnmis: XtGeometry{Yes, No, Almost}. 
•/ 

static XtGcoractryResult 
GeomeiTyManager(w. request, reply) 
Widget w; 

XtWidgctGcomeuy • request. • reply: 

{ 
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SimplcMcnu Widget smw = (SimplcMcnuWidget) XtParem(w); 
SmcObjea cmiy = (SmeObjeci) w; 
XtGcomciryMask mode = request- > request_mode; 
XtGeometryRcsuli answer; 
Dimension oid_height. old_width; 

if ( !{mode & CWWidth) &A !(mode & CWHcight) ) 
retuni(XtGcometryNo); 

reply- > width = request- > width; 
reply- > height = request- > height; 

oid_widih = entry- > rectangie.width; 
old_hcight - entry- >rectaagle.height; 

LayouUw, &(rcply- > width), icCrcply- > height) ); 

/• 

* Since we are an override shell as/i have no parent there is no one to 

* ask to see if this geom chaiige is oiay. so I am just going to asaime 

* we can do whaxever we want. If you subclass be very careful with this 

* assumption, it could bite you. 

* Chris D. Peterson - Sept. 1989. 
*/ 

if ( (reply- > width = = request- > width) &A 
(reply- > height = = request- > height) ) { 

if ( mode &. XtCWQueryOnly ) { /• Actually perform the layout. •/ 
entry- > rectangie.width = old_width: 
entry- > rectangle. height = old_height; 
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} 

else { 

Uyoui(( Widget) smw, NULL. NULL); 

} 

answer = XtGcometryDonc; 

} 

else { 

enny- >re«anglc. width = old_width; 
cniry- > rccianglc.hcighi = old_hcight; 

if ( ((reply- > = = request- > width) Sl&. !(mode & CWHcighi)) 1 1 
((reply- > height request- > height) &&. !(mode & CWWidth)) 1 1 
((reply- > width = = request- > width) &A 
(reply- > height « = request- > height)) ) 
answer = XtGeometryNo; 
else ( 

answer = XtGeometry Almost; 

reply- >request_mode ■ 0; 

if (reply- > width ! = request- > width) 

reply- > rcquest_mode | = CWWidth; 
if (reply- > height ! = request- > height) 

reply- > request_mode | = CWHcight; 

} 

} 

reiura(aiiswer); 

} 

/* Funoion Name: ChangcManaged 

* Descripiion: called whenever a new child is managed. 

* Arguments: w - the simple menu widget. 

* Returns: none. 
•/ 
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sutic void 
Ch2iigeMan2g«l(w) 
Widget w; 

{ 

UyouKw. NULL. NULL); 

} 

/••" 

• Global Action Rouunea. 
* 

• These actions routines will be a d d e d to the application's 

* global action list. 

..•..•...•......«.....-...—.....«/ 

/• Function Name: PositionMenuAction 

* Description: Positions the simple menu widget. 

* Argumenxs: w • a widget (no the simple menu widget.) 

* event • the eveffi that caused this action. 

• paxams. Diunjjarams • parameten passed to the routine. 
f we expect the name of the menu here. 

• Renims: none 
•/ 

/• ARGSUSED •/ 
static void 

PositionMcnuAcuon(w, event, pararas. numj)arams) 
Widget w: 
XEvcm • event; 
String * params: 
Cardinal • num_params: 
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{ 

Widgei menu; 
XPoini loc; 

if (•niunj3aranis != 1) { 
char crror_bufTBUFSIZl; 
sprimf(crTor_buf. '%$ %s', 

"Xaw - SimplcMcnuWidget: position menu action expects only one", 

'parameter which is the name of the memi."); 
XtAppWaniing(XlWidgciToApplicaiionConiext(w), error^buO; 
return; 

} 

if ( (menu = FindMenu(w, params[0])) » - NULL) { 
cbar erTor_buflBUFSIZJ; 
^jrintf(enDr_buf, *%a '^s**, 

'Xaw - SimpkMenu Widget: could not find menu named: paramsfO]); 
XtApp Waming(XtWidgetToApplicaiionConiext(w) , error^^buf); 
retsrm 

} 

switch (event- > type) { 
case BuoonPress: 
case BuoonReiease: 

loc.x = cvem- > xbunon.x_root: 

loc.y - event- >xbunon.y_rooi; 

PositionMenu(menu, &loc); 

break; 
case EnterNotily: 
case LeaveNotify: 

loc.x = event- >xcrossing.x_root; 

loc.y = event- >xcrossing.y_root; 
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PositionMeziu(iDciiu, &loc): 

break: 
case MoiionNotify: 

loc.x = event- >xmodon.x_rooi: 

loc.y = eve«->xiDodon.y_rooi; 

PositionMenu(mexm, &ioc); 

break: 
default: 

PosiDonMex]U(EDenu, NULL); 
break; 

} 

} 



* Widget Action Roimnes. 
♦ 

/* Function Name: Unhighlight 

* Description: Unhighlights cuncnt entry. 

* Arguments: w • the simple menu widget 

* event • the event that caused this action. 

* params, num_params - •* NOT USED •* 

* Returns: none 
•/ 

/• ARGSUSED V 
static void 

Unhighlight(w, event, params, num j)arams) 
Widget w: 
XEvcnt • event: 
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String * paiams: 
CardiiiaJ * nuni_params; 

{ 

SimpleMcnuWidgex smw = (SimplcMcnu Widget) w; 
SmcObjcct entry = smw-> simpic_mcnu.cntry_sei; 
SmcObjeciOass class; 

if ( entry = = NULL) return; 

smw- > simpie_menu.eiiny_set = NULL; 

class = (SmeObjcctClass) cnny-> object. widgei_class; 

(class- >sinc_class.unhighlight) ( (Widget) entry); 

} 

/* Function Name: Hlgblighl 

* Description: Highlights current entry. 

* Arguments: w • the simple menu widget. 

* event • the event that caused this action. 

* panms, oum_params - NOT USED 

* Returns: none 



/• ARGSUSED •/ 
static void 

Highiigfai(w, event, params. num_j}arams) 

Widget w; 

XEvent • event; 

String • params; 

Cardinal • numj)arams; 

{ 

SimplcMenuWidget smw = (SimpleMenuWidget) w; 
SmeObjcct entry; 
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SmeObjcctClass class: 

if ( !XtIsSensirivc(w) ) rcmni; 

enny = GetEvcniEnny(w, event); 

if (emry =» smw->siinple_menu.cnrry_sei) rctuni; 

TTnhi ghlight( w, event, pa rams , num ja ranm ); 

If (enny = = NULL) remm; 

if ( !XtlsS«ismve( (Widget) emry)) { 

smw- > simple_inciiu.cnny_set = NULL; 
renirm 

} 

smw- > simpk_meDu.emiy_set » enny; 

class = (SmeObjectClass) entry- > object.widget_class; 

(class- >sme_class.higiiligiit) ( (Widget) entry); 

} 

/* Function Name: Notify 

* Description: Notify user of currem entry. 

* Argumetus: w • the simple menu widget 

* evem - the event that caused this action. 

* params, numj)aiams - ** NOT USED 

* Remms: none 



/• ARGSUSED •/ 
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Static void 

Nouf>'(w. event, params. Dumjjarams) 

Widgci w: 

XEvent • event: 

String * params; 

Cardinal • num_params: 

{ 

SimpleMenuWidgci smw = (SimplcMcnuWidget) w; 
SmeObject entry = smw->sunple_raenu.cnxry_set; 
SmeObjectClass class: 

if ( (emry = = NULL) 1 1 !XiIsScnsirive((Widgei) entry) ) return; 

class = (SmeObjectClass) entry- >objecLwidget_class; 
(class- > smc_dass.notify)( (Widget) eary ): 

} 

/• Function Name: Pull 

* Description: Determines action on basis of leave direction. 

* Arguments: w • the pull right menu widget 

* eveiu - the LcavcWindow event that caused this action. 

* params, num_params • •* NOT USED •* 

* Returns: none 
*/ 

sutic void Pull(w, event, params, num jjarams) 

Widget w: 
XEvent *cvcn£: 
Siring *params; 
Cardinal •numjjararas; 
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{ 

PullRighiMcnuWidgci prw=(PullRightMenuWidgci)w; 
SmeObjeci enn7=prw- > simple_mcnu.emiy_s«: 
SooeObjectClass class; 



if ((cnrry= =NULL)| | !Xd5Scnsiuvc((Widga)ciirry))rcmrn; 

if (evcni- > type! = LcavcNoiify k&. cveni-> type! = EnicrNouly) { 

XtApp£rror<XtWidgetToAppiicaiionComext(w), 
"puUQ action should only be used with XCrossisg cvcnis."); 

reunu 

} 

if (None! = event- > xcrossing.subwindow) reiuni; 

if (event- > xcrossing.y < 0 1 1 event- > xciosaing.y > prw- > coie.heigfat) { 

TTnhi'£Mighf(w,gvgnf ,paratT)ff mimj ar am* ); 

retunu 

}; 

if (event- > xcrossing.x < 0) { 

if (XtIsSubclas$(XlPaitni(w),pullRighiMcnuWIdgeiClass)) XtPopdown(w): 

FCtUISi 

); 

class = (SmcObjeaClass)cntiy- > object widg«_class: 
if (event- > xcrossing.x > ptw- > core. width &A 
XtIsSubclass(entiy,smeBSBpiObjectClass)) (class- > snie_class.notify)((Widget)enny); 
else U&hjghIight(w,event.params.Dumj}arams); 

} 



/* Function Name: Execute 

* Description: Determines notify action on basts of SmeObject. 

* Arguments: w - the pull right menu widget. 

* event - the notify-type event that ca u sed this action. 

* params. num_params - *• NOT USED *• 

* ■ Returns: none 
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siadc void Excauc(w. cvcni, params. Duni_params) 

Widget w; 
XEvcni 'evem: 
String *parains; 
Cardinal •num_params; 

{ 

PullRightMcnu Widget prw=(PulIRighiMenuWidget)w; 
SmeObjea cnny=prw->siinple_nienu.eniiy_sei; 
SmeObjectClass class; 
Widget sheU; 

Dprinif('£xficme\n"); 

for(shcll « w;XtlsSubclass(shcil,puilRighiMenu WldgetClass);shcU = XtParenKshell)) 

{ 

XawSimpieMeouCIearActive£nny(shell); 
XtPopdown(shell): 

): 
if 

((entry = =GetEvem£ntiy(w,eveni))&A(entry! » NULL)&AXtl5Scnsitive((W!dgci)emry)) { 

class = (SmeObjectClass)eatiy- > objea. widget_class; 

if (XtIsSubcla5s(entry,smeBSB0bjectClass)) 
(class- > sme_class.noiify)((Widgei)enny); 

): 

} 
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* Public Funciions. 

»...»....,,..^ 

/* Funciion Name: XawPullRighiMenuAddGlobalAciions 

* Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontexi. 

* Renims: none. 
•/ 

void 

XawPullRightMcnuAddGlobalActions(app_con) 

XtAppContext app_con; 

{ 

XdnitializcWidgetClassCpullRightMenuWidgetClass); 
XmuCalUnitializersC app_con ); 

} 

/ • — • ...••••..I. 

* Private Functions. 

• • ••.....•.....*..•........•*/ 

/* Function Name: CreateLabel 

* Description: Creates a the menu label. 

* Arguments: w - the smw widget. 

* Rcninis: none. 

* Creates the label object and makes sure it is the first child in 

* in the list. 
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•/ 

Sialic void 
CreaieLabcl(w) 
Widget w; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
register Widget * child, • ncxt_child; 
register int i; 
Arg aTgs(2]; 

if ( (smw->siinplc_menu.label_string == NULL) i| 
(sxnw->simplc_mcnu. label !- NULL) ) { 
char error_buflBUFSIZ]; 

sprintf(eTTor_buf, "Xaw Simple Menu Widgei: %s or %s, %s", 
"label string is NULL", "label already exists", 
"no label is being created."); 

XtApp Warning (XtWidgctToAppl icationContext(w) , erTor_buf); 

return; 

} 

XiSetArg(args(0], XlNlabel. sinw-> siraple_menu.label_string); 
XiSeiArg(args[ll, XtNjusnfy, XtJustilyCentfir); 
sniw->siniple_menu.labcl = (SmeObjeci) 

XtCreateManagedWidget( " menuLabcl " . 

smw- > simple_menu.label_class, w, 

args, TWO); 

next_cluld = NULL; 

for (child = smw- > composite. children + smw- > compos ite.num_children, 
i = smw- > composite. niun_children ; i > 0 ; i-, child—) { 
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if (nexi_child ! = NULL) 
•ncxt_child = •child; 
ncxi_child = child; 

) 

*child = (Widget) smw- > simple_incnu.label; 

} 

/* Fvmciion Name: Layout 

* Description: lays the menu entries out all nice and neat. 

* Arguments: w - See below ( + + +) 

* width_ret, height^ret - The rcnimed width and 

* height vahies. 

* Renims: none. 

* if width = = NULL 1 1 height = = NULL then it assumes the you do not care 

* about the remni values, and just want s relayofut. 

* if this is not the case then it will set width_ret and hcight_ret 

* to be width and height that the child would get if it were layed out 

* at this time. 

* + + + "w*" can be the simple menu widget or any of its object children. 
*/ 

static void 

Layout(w, width_ret, heighi_ret) 
Widget w; 

Dimension *width_rel, *height_ret; 

{ 

SmeObject cuncnt_enny, *eniry; 
SimpleMenuWidgct smw; 
Dimension width, height; 
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Boolean dojayoui = ((bcighi_rct = = NULL) | j (width_rct = = NULL)); 
Boolean aJlow_change_si2e; 
height = 0; 

if ( Xi]sSubclass(w. puliRighiMenuWidgetClass) ) { 
smw = (SimpleMenuWidgct) w; 
current_eniry = NULL; 

) 

else { 

smw = (SiropleMenuWidget) XtParent(w); 
cuncnt_entry = (SmcObjcct) w; 

) 

allow_change_si2e = (!XtIsRcali2ed((Widget)sinw) | j 
(smw- > sheIl.allow_shelI_Tesi2e)); 

if ( smw- > simplc_menu.mcDU_height ) 
heigh! = smw- > core, height; 

else 

if (do_layout) { 

height = smw- > simple_mcnu.iop_margin; 
ForAJiaiildren(smw, cniry) { 

if (!XtIsMaiiagcd( (Widget) *cntTy)) continue; 

if ( (smw- > siniple_mcnu.row_height ! = 0) &.& 
(*entiy != smw->simple_mcnu.label)) 
(•entry)- > rectangle .height = smw- > simple_menu.row_hcight; 

(*entiy)- > rectangle.y = height; 

(♦entry)- >rectangle.x = 0; 

height += (*entry)->rectangle.height; 

} 
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height += sinw->siniplc_mcnu.bonom_margm; 

} 

else { 

if {(smw->siniple_menu.row_hcighi != 0) && 
(current_emry != sraw- >simple_inenu. label) ) 
height = smw- > simpie_menu.row_height; 

} 

if (smw->siinple_menu.menu_width) 

width = smw- > core, width; 
else if ( allow_change_si2e ) 

width = GctMenuWidth((Widget) smw, (Widget) curTcnt_entry): 

else 

width = smw- > core, width; 

if (do_layout) { 

ForAIlChildrcn(smw, entiy) 

if (XtIsMaEaged( (Widget) »entiy)) 
(♦entry)- > rectangle, width = width; 

if (aJlow_change_si2e) 

MakcSetValuesRequest((Widget) smw, width, height); 

} 

else { 

*width_ret = width; 
if (height ! = 0) 

♦height_ret = height; 

} 

} 

/* Funaion Name: AddPositionAction 

* . Description: Adds the XawPositionSimpleMenu action to the global 
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action lisi for ihis appcon. 

• Aiguments: app_con - ihe application context for this app. 

data - NOT USED. 
Renims: none. 

•/ 

/• ARGSUSED •/ 
static void 

AddPositionAction(app_con, data) 
XiAppContext app_con; 
caddrj data; 

{ 

sialic XtActionsRec pos_aciionD = { 

{ "XawPosiiionSimpleMenu", PosiiionMeniiAction }, 

}; 

XtAppAddActions(app_con, pos_aciion. XtNumbcr(pos_action)); 

} 

/• Function Name: FindMcnu 

• Description: Find the menu give a name and reference widget, 
.^gumcnts: widget - reference widget. 

• name - the menu widget's name. 

• Remms: the menu widget or NULL. 
•/ 

static Widget 
FindMenu(widgei, name) 
Widget widget; 
String name; 
{ 

register Widget w. menu; 
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for ( w = widget ; w ! = NULL ; w = X[Parem(w) ) 
if { (menu = XtNameToWidgei(w, name)) ! = NULL ) 
rctuni(mcnu); 
reruni(NULL); 

} 



/• Function Nanae: PositionMenu 

• Description: Places the menu 

• Arguments: w - the simple menu widget. 

• location - a pointer the the position or NULL. 

• Returns: none. 



sutic void 

PositionMenu(w, location) 
Widget w; 
XPoint * location; 
{ 

SimpleMcnu Widget smw = (SimpleMenu Widget) w; 

SmeObjeci entry; 

XPoiru t_point; 

static void MoveMenuQ; 



if (location = = NULL) { 
Window junkl, junk2; 
ini root_x, root_y, junkX, junkY; 
unsigned int junkM; 

location - &tj)oint; 

if (XQucryPointer(XtDisplay(w). XtWindow(w), &junkl, &junk2. 

&root_x, &root_y, &junkX, &junkY. &junkM) = = FALSE) { 
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char error_buflBUFSIZ); 

spruirf(erTor_buf, "%s %s", "Xaw - SimpleMenuWidget:", 

'Could not find locaiion of mouse pointer"); 
XiAppWaniing(XtWidgeiToApplicationConiext(w), enor_buf); 
return; 

} 

locaiion- > x = (shon) root_x; 
locaiion- >y = (short) root_y; 

} 



• The width will not be correct unless it is realized. 
•/ 

XtRealizeWidget(w); 

locaiion- > x - = (Posiiion) w- > corc.width/2; 

if (smw- > simple_menu.popup_entry = = NULL) 
entry *= smw- > siinple_menu. label; 

else 

enny = smw- > siniple_mcnu.popup_cniry; 

if (entry ! = NULL) 

locaiion- > y entry- > reciangle.y + entry- >rectangle.height/2; 

MoveMenu(w, (Posiiion) location- >x, (Posiiion) locaiion- >y); 

} 

/* Function Name: MoveMenu 

* Description: Actually moves the menu, may force it to 

♦ 10 be fully visable if menu_on_screen is TRUE. 
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• Arguments: w - the simple menu widget. 

• X, y - the current location of the widget. 

• Remms: none 
*/ 

static void 

MoveMenu(w, x, y) 
Widget w; 
Position X, y; 
{ 

Arg arglist[2]; 
Cardinal nuin_args = 0; 

SimpleMenuWidget smw = (SimpleMenuWidgei) w; 

if (smw- > simple_mcnu.mcnu_on_screen) { 

int width = w-> core. width + 2 * w- > core.border_width; 
ini height = w-> core. height + 2 * w->corc.border_width; 

if (X < 0) 
X = 0; 
else { 

int scr^width = WidthOfScrccn(XtScrcen(w)); 
if (X + width > scr_width) 
X = scr_width - width; 

} 

if (y < 0) 
y = 0; 
else { 

int scr_height = HeightOfScreen(XtScreen(w)); 
if (y + height > scr_height) 
y = scr_height - height; 
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XiSeiArg(arglist(nuni_args), XiNx. x); Dum_args+ + ; 
XtSetAig(ajglist[nuni_argsl, XtNy, y); num_args+ + ; 
XtSetValucs(w. arglist. nuni_args); 

) 

/" Function Name: ChajigeCursorOnGrab 

• Description: Changes the cursor on the active grab to the one 

• specified in out resource list. 

• Arguments: w - the widget. 

junk, garbage - NOT USED 

• Remrns: None. 
•/ 

/• ARGSUSED •/ 
static void 

ChangeCursorOnGrab(w, junk, garbage) 
Widget w; 

caddrj junk, garbage; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidgei) w; 
/* 

* The event mask here is what is currently in the MIT implcmcnution. 

* There really needs to be a way to gel the value of the mask out 

* of the toolkit (CDP 5/26/89). 
♦/ 

XChangeActivePoinier<3rab(XtDisplay(w). ButtonPressMask | BunonReleaseMask, 
smw->simplc__menu.cursor, CurrentTime); 
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) 

/• Function Name: MakeSeiValuesRequest 

Descripiion: Makes a (possibly recursive) call to SetValues, 

* I take great pains to not go into an infinite loop. 

* Arguments: w - the simple menu widget. 

» width, height - the size of the ask for. 

* Renims: none 
•/ 

static void 

MakeSetVa]uesRequcst(w. width, height) 
Widget w; 

Dimension width, height; 
{ 

SimpleMenuWidget smw = (SimplcMenu Widget) w; 
Arg arglist[2]; 

Cardinal nmn_args = (Cardinal) 0; 

if ( !smw->simple_menu.rccursive_set_values ) { 

if ( (smw- > core. width != width) 1 1 (smw- > core. height f = height) ) { 
smw->simple_menu.recursive_sel_values = TRUE; 
XtSetArg(arglist[num_args] , XtNwidth, width); num_args + + ; 
XtSetArg(arglist[num_args], XlNhcight, height); num_args+ + ; 
XtSeiValues(w, arglist, num_args); 

} 

else if (XdsRealizedC (Widget) smw)) 

Redisplay((Widgct) smw. (XEvcnt •) NULL. (Region) NULL); 

} 

smw- > simple_menu.recursivc_set_values = FALSE; 

} 
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/• Function Name: GtiMenuWidth 
» Description: Sets the length of the widest entiy in pixels. 
» Aigumenis: w • the simple menu widget. 
• Returns: width of menu. 
*/ 

static Dimension 
GetMenuWidth(w, w_ent) 
Widget w, w_cm; 
{ 

SmeObject cur_entry = (SmcObjeci) w_eni; 
SimpleMenu Widget smw = (SimplcMcnuWidget) w; 
Dimension width, widest = (Dimension) 0; 
SmeObject ♦ enny; 

if ( smw- > simple_menu.menu_width ) 
return(smw- > core, width); 

ForAUChi]dren(smw, entry) { 
XtWidgetGcomeiry preferred; 

if (!Xt]sMamged( (Widget) 'entry)) continue; 

if ('entry ! = cur__cntry) { 

Xt(^eryGcomeiry(*entry, NULL, Apreferred); 

if (preferred. request_mode & CWWidth) 
width = preferred, width; 

else 

width = ('entry)- > rectangle, width; 

} 

else 
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width = (•enn7)-> rectangle. width; 

if ( width > widest ) 
widest = width; 

} 

rerum(widest); 

) 

/* Funaion Name: GctMenuHeight 

* Description: Sets the length of the widest entry in pixels. 

* Arguments: w - the simple menu widget. 

* Returns: width of menu. 
•/ 

static Dimension 
GetMenuHeight(w) 
Widget w; 
{ 

SimplcMcnuWidgct smw = (SimplcMcnuWidget) w; 
SmeObjcct * entry; 
Dimension height; 

if (smw- > simple_menu.menu_htight) 
renim(smw- > core. height); 

height = smw- > simple_menu.iop_margin + smw- > simple_mcnu.bottom_margin; 

if (smw- > simplc_mcnu.row_bcight = = 0) 
ForAllChildren(smw, enny) 

if (XtlsManaged ((Widget) *entry)) 

height += (♦entry)- > rectangle. height; 
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else 

height += sniw->simplc_menu.row_height " smw-> composite. nuni_children; 
re tum( height); 

} 

/* Function Name: GciEvcniEntry 

• Description: Gets an entry given an event that has X and Y coords. 

* Arguments: w - the simple menu widget. 

• event - the event. 

* Rerums: the entry that this point is in. 
V 

static SmeObject 
GetEventEnny(w, event) 
Widget w; 
XEvent • event; 
{ 

Position x_loc, y_loc; 

SimplcMenuWidget smw = (SimpleMenuWidget) w; 
SmeObject * entry; 

switch (event- > type) { 
case MotionNotiiy: 

xjoc = event- > xmotion.x; 

y_loc = event- > xmoiion.y; 

break; 
case EnterNotify; 
case LcaveNotify: 

x_loc = event- >xcrossing.x; 

y_loc = event- >xcrossing.y; 

break: 
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case BunonPress: 
case BunonRe lease: 

xjoc = event- >xbunon.x; 

y loc = event- >xbunon.y; 

break; 
default: 

XiAppEnor(XtWidgetToApplicationConiext(w), 

"Unknown event type in GetEveniEntryO."): 

break; 

} 

if ( (x loc < 0) 1 1 (x_loc > = sniw->core.width) j | (y.loc < 0) 1 1 
(y^loc > = smw-> core. height) ) 
remni(NULL); 

ForAllChildren(sinw, enny) { 

if (IXasManagcd ((Widget) 'entiy)) continue; 

if ( ((*cntty)-> rcctangle.y < yjoc) && 

((•enn7)->rtcianglc.y -f- (*entry)- > recianglc.height > yJoc) ) 
if ( •entry = = sniw->siinple_menu. label ) 

reiunj(NULL); /• cannot select the label. */ 

else 

renim(*entry); 

} 

renini(NULL); 
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• Selection from list widget 



^include "../include/xwave.h" 

void Sclcct(w.closurc.call_data) 

Widget w; 

caddr_t closure, call^data; 

{ 

Selection sel=(SeIection)closure; 

Widget button = Fii«lWidget(sel- > bunon.w), 

shell = ShellWidget(scl- > name.bution,SW_below.NULL.NlJLL), 
fonn=FonnatWidget("sel_fonn".shcll). list__widgct, widgets[3]; 
String *list=(se]->listj)roc)0; 
Formltcm itemsO = { 

{ "sel_canccr , "close" ,0,0,FW_icon,NULL}, 
{"sclJabcr.(String)scl- > action_name,l,0,FWJabel,NULL}, 
{ "sel_view" ,NULL,0,2,FW_vicw,NULL} . 

}; 

XtCaJlbackRcc list_callsD = { 
(Destroy , (caddr J)shcll } , 
{sel- > aciioD_proc,sel- > action_closure}, 
{NULL,NULL}, 
. }, callbacksn = { 
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{Destroy. (caddr_t)shell} , 
{NULL,NULLj, 

}; 

Arg args[l]; 

FillForm(fomi,THREE,iicms,widgeis, callbacks); 
XtSetArg(args[0],XtNlist.lisi); 

lisi_widgei = XtCreaieManagedWidget("scl_listMistWidgctClass,widgets[2],args.0NE); 
XtAddCanbacks(list_widgei.XiNcallback,list_caJls): 
XiPopup(shell.XtGrabExclusive) ; 

} 
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source/SmeBSBpr.c 



#if ( Idefmeddint) &.&. !defmed(SABER) ) 

suiic char Xrcsidt] = "SXConsonium: SmeBSB.c.v 1.9 89/12/13 15:42:48 kit Exp $"; 
#endif 

/* 

• Copyright 1989 Massachusetts Institute of Technology 

• Pemiission to use, copy, modify, distribute, and sell this software and its 

• documentation for any purpose is hereby granted without fee, provided that 

• the above copyright notice appear in all copies and that both that 

• copyright notice and this permission notice appear in supporting 

• documentation, and that the name of M.I.T, not be used in advertising or 

• publicity pertaining to distribution of the software without specific, 

• wrinen prior permission. M.I.T. makes no representations about the 

• suitability of this software for any purpose. It is provided "as is* 

• without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

• IMPLIED WARRANTIES OF MERCHANTABILTTY AND FITNESS. IN NO 
EVENT SHALL M.I.T. 

• BE UABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTLY- DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS. 
WHETHER IN AN ACTION 

• OF CONTRACT. NEGUGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

• CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
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•/ 
/■ 

" SmeBSBpr.c - Source code file for BSB pull-right Menu Entry object. 
•/ 

//include <stdio.h> 
^include <Xll/InirinsicP.h> 
^include <Xll/StringDefs.h> 

^include <X11/Xinu/Drawing.h> 

yfindude <X11/Xaw/Xawlmt.h> 
^include <Xll/Xaw/SiniplcMcnu.h> 
#include "SmeBSBprP.h" 
#mclude <X11/Xaw/Canlinals.h> 

#define ONE_HUNDRED 100 

#dcfinc offsct(ficld) XtOffscKSmcBSBprObjcct, smc_bsb. field) 

static XtResource resourcesD = { 
{XlNlabel, XtCLabel, XtRString, si2eof(Strmg), 

offset(labcl). XtRString, NULL), 
{XtNvertSpace, XtCVcrtSpace, XxRlnt, si2cof(im), 

offset(ven_space), XtRImmcdUte, (caddr_t) 25}, 
{XtNlcftBinnap, XtCLefiBitmap, XtRPixmap, sizeofCPixmap), 

offset(left_bitiii2p), XtRImmcdiate, (caddr_t)None}, 
{XiNjustify, XtCJusiify. XiRJusiify, sizeof(XtJustify), 

offset(jusiify), XtRImmcdiate. (caddr_t) XtJusiifyLeft}. 
{XtNrighiBitmap, XtCRightBinnap, XtRPixmap, sizeofCPixmap), 
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offsct(right_biDnap), XiRlmmcdiate, (caddr_t)None}, 
{XtNiefiMargin. XtCHorizonLilMargms. XiRDimension, si2eof(Dimension). 

offset(left_maigiii), XiRImmediatc, (caddrj) 4}. 
{XiNrighiMaigin, XiCHorizonialMargins, XiRDimension. sizeoffDimension), 

offset(right_margm), XilUmmediaie, (caddrj) 4}, 
{XiN foreground, XtCFore ground, XtRPixel. si2eof(Pixel), 

offsei(fcreground). XtRSiring, "XiDefauliForeground"}, 
(XiNfoni, XtCFoni, XiRFontStnict, si2cof(XFontSiruct *), 

offset(fom), XtRString, "XiDefauliFont"}. 
{XtNmenuName, XtCMenuName, XiRString, si2cof (String), 
offset(menu__name), XiRString, (caddr_t)''menu"}. 

}; 

#undcf offset 
/♦ 

* Semi Public function definitions. 
*/ 

static void RedisplayO, DestroyQ, InitiaJizeQ, FlipColorsO, PopupMcnuQ; 

static void ClassInitializeQ: 

sutic Boolean SetValucsO; 

static XtGeoineiryResult Query GtomecryO; 

/• 

* Private Funciion Definitions. 
♦/ 

static void GetDefauliSizeQ, DrawBitmap^sO, GetBitmapInfoQ; 
static void CrcateGCsQ, DcstroyGCsQ; 

^define superclass (&smeClassRec) 
SmeBSBprClassRec smeBSBprClassRec = { 
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{ 

/• superclass */ (WidgctClass) superclass, 

/• class name */ "SmcBSBpr", 

/. size */ si2eof(SmcBSBprRec), 

/• c]ass_ initializer •/ Classlniiialize, 

/• class_pan_iniiiali2e*/ NULL, 

/• Class init'ed '/ FALSE, 

/* iniiiaJize */ Initialize, 

/♦ iniiialize_^hook */ NULL, 

/* realize */ NULL, 

/* actions •/ NULL, 

/* num_actioiis */ ZERO, 

/* resources */ resources, 

/• resouTce_count */ XiNuihbcr(rcsources), 

/* xrm_class */ NULLQUARK. 

/• compress_inoDon '/ FALSE. 

/• compress_exposure •/ FALSE, 

/* compress^enicrlcave*/ FALSE, 

/♦ visible^interest •/ FALSE, 

/* destroy */ Destroy, 

/• resize */ NULL. 

/• expose */ Redisplay. 

/• set values •/ SetValues, 

/* set_va]ues_hook */ NULL, 

/* set values almost */ XtluhciitSctValuesAlmost, 

/* get_values_hook */ NULL, 

/* accepi_focus */ NULL, 

/• intrinsics version •/ XlVersion, 

/* callback offsets */ NULL, 

/♦ tin_table */ NULL, 

I* query_£eometry */ Query Geometry, 

/• display_accelerator*/ NULL, 
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/" extension "/ NULL 

}.{ 

/• Menu Entry Fields */ 

/* highlight */ FlipColors, 
/• unhighlighi •/ FlipColors, 
/' notify */ PopupMenu, 
/• extension */ NULL 

}. { 

/* BSB pull-right Menu entry Fields */ 
/» extension */ NULL 

} 

}: 

WidgeiClass smeBSBprObjcctClass - (WidgctClass) &smcBSBprClassRec; 



• Semi-Public Functions. 

— • • — / 

/• Function Name: Classlnhialize 

* Description: Initializes the SmcBSBprObjeci. 

• Arguments: none. 

* Remms: nooe. 
*/ 

static void 

ClassInitializeO 

{ 
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XawInitializeWidgetSeK); 

XiAddCoDvencr( XiRStrmg, XtRJustify, XmuCvtSirmgToJustify, NULL, 0 ); 

} 

/* Function Name: IniiiaJizc 

• Description: IniiiaJizes the simple menu widget 

• Arguments: request - the widget requested by the argument list. 

• new - the new widget with both resource and non 

• resource values. 

• Returns: none. 
*/ 

/* ARGSUSED •/ 
static void 

Initialize(request, new) 
Widget request, new; 

{ 

SmcBSBprObject entry = (SmcBSBprObject) new; 

if (entry- >sme_bsb. label == NULL) 
entry- >sme_bsb.label = XtName(new); 

else 

entry- >sme_bsb.labcl = XtNewString( entry- >sme_bsb. label ); 

I* Xaw bug - bitmap initialization now performed */ 
if (entry- > smc_bsb.lefi_bitmap ! = None) GetBitmapIiifo(cntry, TRUE); 
if (entry- >sine_bsb.right_bitmap != None) GeiBitmapInfo(entry, FALSE); 

CreatcGCs(new); 

GetDefaultSizc(new, &(entry- > rcctanglc.width).. &(eniiy- > rcctanglc.height)); 

} 
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/• Function Name: Desnoy 

Description: CaJled at destroy tune, cleans up. 

• Arguments: w • the simple menu widget. 

• Remrns: none. 
•/ 

static void 
Desu-oy(w) 
Widget w; 
{ 

SmeBSBprObject entry = (SmeBSBprObjeci) w; 
DcstroyGCs(w); 

if (entry- >sme_bsb.label != XtNamc(w)) 
XtFrec(cnny- > smc_bsb. label); 

) 

/• Function Name: Redisplay 

• Description: Redisplays the contents of the widget. 

• Arguments: w - the simple menu widget. 

• event - the X event that caused this redisplay. 

• region - the region the needs to be repainted. 

• Remms: none. 
•/ 

/* ARGSUSED ♦/ 
static void 

Redisplay(w, event, region) 
Widget w; 
XEvent * event; 
Region region; 
{ 
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GC gc; 

SroeBSBprObjcci entry = (SmeBSBprObject) w; 
ini foni_asccnt. foni_descem, y_loc; 

enny->sme_bsb.set_vaJues_area_cleared = FALSE; 
foni_asceni - entry- >sme_bsb. font- > max_bounds. ascent; 
foni_descent = entry- >srae_bsb.font->max_bounds. descent; 

yjoc - entry- >rcctangle.y; 

if (XtlsSensitive(w) && XasSensiiive( XtParent(w) ) ) { 

if ( w = = XawSunpleMcnuGeiActiveEntiy(XtParent(w)) ) { 
XFi]lRectangle(XtDisplayOfObjcct(w), XtWindowOfObject(w), 
entry- > smc_bsb.nonn_gc, 0, y_loc, 
(xmsigned int) entry- > rectangle. width, 
(unsigned int) entry- >rectangle.height); 
gc = eiiuy->sinc_bsb.rev_gc; 

} 

else 

gc - entry- >sine_bsb.nonn_gc; 

} 

else 

gc = entry- >sme_bsb. norm _jray_gc; 

if (entry- >sme_bsb.label != NULL) { 

int x_loc = entry- > sme_bsb.left_iriargin; 
int IcD = siilen(entry- > sme_bsb. label); 
char * label = entry- > sme_bsb. label; 

switch(entry- > sme_bsb.justify) { 
int width, t_wid±; 
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case XdusiifyCcnter; 

I width = XTexiWidUi(entry->sme_bsb.fom, label, len); 

widih = entry- > rectangle. width - (entry- >sme_bsb.left_margin + 
entry- > sme_bsb.right_margin); 

x_loc + = (width - t_widih)/2; 

break; 
case XiJustify Right: 

i_width = XTextWidth(cntTy->srae_bsb.fom, label, len); 

X loc = entry- > rectangle. width - (entry- > sme_bsb.right_margin -l- 
t_width); 

break; 
case XtJustifyLeft: 
default: 

break; 

} 

yjoc += (entry- > rectangle. height - 

(font_ascent + font^desccnt)) / 2 + fom_ascciit; 

XDrawSffing(XtDisplayOfObject(w). XtWindowOfObject(w), gc, 
x_loc, y_loc, label, len); 

} 

DrawBitmaps(w, gc); 



Function Name: SelValucs 

Description: Relayout the menu when one of the resources is changed. 
Arguments: current - current sute of the widget. 

request - what was requested. 

new - what the widget will become. 
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» Returns: none 
*/ 

/• ARGSUSED */ 
siaric Boolean 

SetValues(cunent, request, new) 
Widget cuirent, request, new; 
{ 

SmeBSBpK)bjcct entry = (SmcBSBprObject) new; 
SmeBSBprObjcct old_cntry = (SmcBSBprObject) current; 
Boolean rei_val = FALSE; 

if (oId_entiy->sme_bsb.labcl != entry- >sine_bsb. label) { 
if (old_enDry->sme_bsb.labeI != XtNaine( new ) ) 
XtFreeC (char •) old_cntry->smc_bsb. label ); 

if (entry- >sinc_bsb. label != XtNamc(iicw) ) 

entry- > sme_bsb.label = XiNewString( entry- > smc_bsb.label ); 

ret_val - True; 

} 

if (entry- > rectangle.scnsitive != old_entry-> rectangle. sensitive ) 
ret_val = TRUE; 

if (entry- >sme_bsb.lcft_bitmap != old_cnny->sme_bsb.lcft_bitmap) { 
(jetBiiiiiaplBfo(ncw, TRUE); 
ret_val = TRUE; 

} 

if (entry- > smc_bsb.right_bitmap != old_cntry->smc_bsb.right_bitmap) { 
GetBitinaplnfo(new, FALSE); 
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rct_va] = TRUE; 

} 

if ( (old entry- > sme_bsb. font != entry- > sme_bsb. font) | j 

(old entry- >sme_Dsb. foreground != eniry- >sme_bsb. foreground) ) { 
DestroyGCs(current) ; 
CreaieGCs(new); 
ret_val = TRUE; 

} 

if (ret_val) { 

GetDcfauliSi2e(new, 

&(entry- > rectangle. width), «t(cntiy- > rectangle. height)); 
entry- > sme_bsb,sct_values_area_clearcd = TRUE; 

} 

retum(ret_va]); 

} 

/* Function Name: Query Geometry. 

* Descripiion: Rcrums the preferred geometry for this widget. 

* Arguments: w - the menu entry object. 

* itcnded, retum_val - the inteixled and return geometry info. 

* Rcmms: A Geometry Result. 

See the Intrinsics manual for details on what this function is for. 

* I just remm the height and width of the label phis the margins. 
*/ 

static XtGeometryResult 
QueryGcomctry(w, intended, retum_val) 
Widget w; 
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XiWidgciGeomctry *iDiended. •rciuni_val; 
{ 

SmeBSBprObject cnny = (SmeBSBprObject) w; 
Dimension width, height; 
XtGeomctryResult ret_val = XiGeomctiyYes; 
XiGeometryMask mode = intended- > request_modc; 

GeiDefaultSize(w, &widlh, &height ); 

if ( ((mode & CWWidih) && (intended- > width != width)) 1 1 
!(mode & CWWidth) ) { 
retuni_vaI->request_mode |= CWWidth; 
renirn_val- > width ■ width; 
ret_val = XtGeometiy Almost; 

} 

if ( ((mode & CWHeight) (intended- > height != height)) 1 1 
!(mode & CWHeight) ) { 
renini_val->rcqucst_mode |= CWHeight; 
rcnirn__val- > height = height; 
rct_val = XtGeomcoyAhnost; 

} 

if (ret_val = = XtGeomctryAhnost) { 
mode = remm_val->rcquest_mode; 

if ( ((mode & CWWidth) && (width = 
((mode & CWHeight) &A (height = 
remrn(XtGeometiyNo); 

} 

retum(ret_val); 
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} 

/• Fujiciion Name: FlipColors 

* Description: bven ihe colon of the cunem entry. 

* Aigumenis: w - the bsb menu entry widget. 

* Returns: none. 
*/ 

static void 
FlipColors(w) 
Widget w; 
{ 

SmeBSBprObjeci entry = (SmeBSBprObject) w; 

if (entry- > sme_bsb.set_vaJucs_area_cleared) renim; 

XFUlRectanglc(XtDisplayOfObjcct(w), XtWindowOfObjcct(w). 

entry- >sme_bsb.invcrt_gc, 0, (int) entry- > recianglc.y, 
(unsigned ini) entry- > rectangle. width, 
(unsigned int) entry- >rectangle.beight); 

} 

/•••—••••• 

* Private Functions. 

w 

......../ 

/* Function Name: GeiDefauliSize 

* Description: Calculates the Default (preferred) size of 

* this nienu entry. 

* Arguments: w - the menu entry widget. 
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width, height - default sizes (RETURNED). 

* Returns: none. 
•/ 

static void 

GeiDefauliSi2e(w, width, height) 
Widget w; 

Dimension * width, * height; 
{ 

SmeBSBprObjeci entry = (SmeBSBprObject) w; 

if (entry- > sinc_bsb. label = = NULL) 
*width = 0; 

else 

•width = XTextWidth(cniry- > sme_bsb.font, entry- > sme_bsb. label, 
strlen(entry- > sme_bsb.label)); 

•width entry- >sme_bsb.left_niargin + entry- >snie_bsb.right_inargin; 

•height = (entry- >sme_bsb. font- >naax_bounds.asccnt + 
entry- > sme_bsb.font- > max_bounds. descent); 

•height = Cheight • ( ONE_HU>a)RED + 

eniTy->sme_bsb.vert_space )) / ONE_HUNDRED; 

) 

/* Function Name: DrawBitmaps 

* Description: Draws left and right bitmaps. 

* Arguments: w - the simple menu widget. 

* gc - graphics context to use for drawing. 

* Returns: none 
*/ 
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static void 

DrawBinnaps(w, gc) 
Widget w; 
GC gc; 

{ 

ini x_loc, yjoc; 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if ( (entry- >sine_bsb.left_bitmap == None) && 

(entry- >sme_bsb.right_bianap == None) ) return; 

/• 

* Draw Left Bitmap. 
*/ 

y loc = cniiy-> rectangle. y + (enny- > rectangle.hcight - 

enny- > sinc_bsb.lcft_bitiiiap_beight) / 2; 

if (entry- > sme_bsb.left_bitmap ! = None) { 
X loc = (entry- > snic_bsb.left_margin - 

entry- >sme_bsb.lcft_bitmap_width) / 2; 
XCopyPlane(XtDisplayOfObject(w), entry- > smc_bsb.left_bitinap, 
XtWindowOfObjcci(w), gc, 0, 0, 
entry- > sme_bsb.left_bitmap_width, 
entry- >sme__bsb.left_bitm2p_height, xjoc, yJoc, 1); 

} 
/♦ 

* Draw Right Bitnaap. 
•/ 

y loc = entry- >rectangle.y -»- (entry- >reciaiigle.heighi - /* Xaw bug - y_loc 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/00€77 



- 335 - 

calculated from right_biD7iap dm *l 

entry- >sme_bsb.right_biaDap_height) / 2; 

if (eniT>'->sme_bsb.right_bitniap != None) { 
X loc = entry- >recmigle. width - (entry- > sme_bsb.right_margin -I- /* Xaw bug - 4- 
raiher than - sign */ 

entry- >sme_bsb.righi_bitmap_width) / 2; 
XCopyPlane(XiDisplayOfObject(w), entry- >sme_bsb.righi_binnap, 
XtWindowOfObject(w), gc, 0, 0, 
entry- > smc_bsb. right_bitinap_width, 
entry- > sine_bsb.right_biDnap_hcighl, xjoc, y_loc, 1); 

} 

} 

/* Function Name: GetBitmapInfo 

• Description: Gets the bitm^ information from either of the bitmaps. 

• Arguments: w - the bsb menu entry widget. 

• is_left - TRUE if we are testing left bitmap, 

• FALSE if we are testing the right bitmap. 

• Returns: none 
•/ 

static void 

GetBitmapInfo(w, isjcft) 
Widget w; 
Boolean is_left; 
{ 

SmeBSBprObject entry = (SmeBSBprObjeci) w; 
unsigned int depth, bw; 
Window root; 
int X, y; 

unsigned int width, height; 
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char bufTBUFSIZl; 

if (is_left) { 

if (entry- > snic_bsb.lcft_bimap ! = None) { 
if (!XG€tGeometry(XiDisplayOfObject(w), 

entry- > sme_bsb.lefi_biimap. «S:rooi, 
&x, &y, & width, &height, &bw, &depth)) { 
sprintf(buf. "SmeBSB Object: %s %s \"%s\".", 'CouJd not', 
"get Left Bitmap geomctiy infomiaiion for menu entry 
XtNamc(w)); 

XiAppError(XtWidgeiToAppiicadonContext(w), buf); 

} 

if (depth != 1) { 

sprintf(buf, "SmeBSB Object: %s \"%s\"%s.". 
"Left Bitmap of entry 
XtName(w), " is not one bit deep."); 
XtAppError(XtWidgctToApplicaiionConicxt(w), buO: 

} 

entry- >sme_bsb.left_bitniap_width = (Dimension) width; 
entry- >smc_bsb.left_bitmap_height = (Dimension) height; 

} 

} 

else if (entry- > sme_bsb.righi_bitmap ! = None) { 
if (!X(jetGeometry(XtDisplayOfObjcct(w), 

entry- >sme_bsb.right_bitmap, &root, 
&x, &y, (kwidth, &hcight, &bw. &depth)) { 
sprinif(buf, "SmeBSB Object: %s %s \"%s\".". "Could not", 

"get Right Bitmap geometry information for menu entry ", 
XtName(w)); 

XtAppEnor(XiWidgetToAppIicaiionConicxt(w), buf); 

} 

if (depth != 1) { 
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sprintf(buf, "SmeBSB Object: %s \'%s\"%s.", 
•Right Bitmap of entry XiName(w), 
" is not one bit deep."); 

XiAppErTor(XtWidgctToApplicaiionContext(w). buf); 

} 

entry- >sme_bsb.right_bimap_width = (Dimension) width; 
entry- >sme_bsb.right_bitmap_height = (Dimension) height; 



/♦ Function Name: CreateGCs 

• Description: Creates all gc's for the simple menu widget. 

• Arguments: w - the simple menu widget. 

• Renims: none. 
•/ 

static void 
CreateGCs(w) 
Widget w; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XGCValues values; 
XtGCMask mask; 

values.foreground = XtPareni(w)->core.backgTound_pixel; 
values. background = entry- >sme_bsb. foreground; 
values.font = entry- >smc_bsb.font-> fid; 
values.graphics^exposures = FALSE; 

mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures; 
entry- >sme_bsb.rev _gc = XtGetGC(w, mask, &values); 

values.foreground = entry- >sme_bsb.foreground; 
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values, background = XiParem(v.')- > core. background _pixel; 
entry- >sme_bsb.ncrm_sc = XtGetGC(w, mask. Rvalues); 

values. nil_style = FillTUed; 

values, tile = XmuCreai£StippledPixmap(XtScreenOfObject(w). 

inrry- > sinc_bsb. foreground, 
XtParent(w)- > core.backgroujid_pixel, 
XtParcni(w)- > core. depth); 

values. graphics_exposxires = FALSE; 

mask I = GCTile | GCFillStyle; 

entry- >sme_bsb.norm_gTay_gc = XtGetGC(w. mask, &values); 

values. foreground *= values. background; 
values, background = 0; 
values, function = GXxor; 

mask = GCForeground | GCBackground | GCGraphicsExposures | GCFunction; 
entry- > sme_bsb.inven_gc = XtGeiGC(w, mask, Avalues); 

} 

/• Function Name: DestroyGCs 

Description: Removes all gc's for the simple menu widget. 
• Arguments: w - the simple menu widget. 
' Returns: none. 
•/ 

static void 
DestroyGCs(w) 
Widget w; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XtReleaseGC(w, entry- > sme_bsb. norm _gc); 
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XtRcleaseGC(w, cnrry- > sme_bsb.nonii _gray_gc); 
XiRcleaseGC(w, entry- >5mc_bsb. rev _gc); 
XtReleaseGC(w, entry- > smc_bsb.iDvert_gc); 

} 

/Sfifdef apollo 
/• 

♦ The apollo compiler that we have opiomizes out my code for 

♦ FlipColorsQ since it is static, and no one executes it in this 

* file. I am sening the function pointer into the class structure so 

• that it can be called by my parent who will tell mc to when to 

* highlight and unhighlighl. 
•/ 

void _XawSmcBSBApolloHack 0 

{ 

FlipColorsQ; 

} 

#cndif /♦ apollo ♦/ 

/• Hacked copy of PopupMcnu from MenuBunon widget to replace XtlnhcritNotify */ 
static void 

PopupMcnu(w, event, params, num_params) 

Widget w; 

XEvent * event; 

String * params; 

Cardinal * nimi_params; 

{ 

SmeBSBprObjea mbw = (SmeBSBpiObjcct) w; 
Widget menu, temp; 
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Arg argJist[2]; 
Cardinal num_args; 

im menu x, mcnu_v, mcnu_widih. menu_height, bunon_width, bunon_hcight; 
Position bunon_x. bunon_y; 

temp = XiParent(w); /• Shell not menu entry is parent of menu */ 
whi]c(temp ! = NULL) { 
menu = XLNaineToWidget(iemp, mbw->sme_bsb.menu_naine); 
if (menu = = NULL) 

temp = XiPairnt(temp); 
else 
break; 

} 

if (menu = = NULL) { 
char erTor_bufTBUFSIZ]; 
sprincf(erTor_buf, "MenuBunon: %s %s.", 

'Could not find menu widget named", mbw->sinc_bsb.menu_namc); 
XiAppWaniiJig(XtWidgctToApplicaiionConiexi(w), error_buf); 
remrn; 

} 

if (!XtIsReali2ed(menu)) 
XtReali2eWidget(menu); 

menu width = menu- > core. width + 2 * menu- > core. border_width; 
bunon width = w-> core. width + 2 * w->core.border_widih; 
bunon_height = w->core.height + 2 • w->core.bordcr_width; 

menu height = menu- > core. height + 2 * menu- > core.bordcr_width; 

XtTranslateCoords(w, 0, 0, &bunon_x, &bunon_y); 
menu_x = bunon_x + button_width; 
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mcnuj^ = bunonj'; 

if (nienu_x < 0) 

meDU_x = 0; 
else { 

int scr_width = WidthOfScreen(XLScreen(menu)); 
if (menu_x + nKnu_widtb > SCT_width) 
menu_x = scr_ width - mcnu_width; 

} 

if (mcnu_y < 0) 

menu_y = 0; 
else { 

im scr_hcighi = HeighiOfScreen(XtScreen(incnu)); 
if (menu_y + mcnu_hcight > scr_heigtil) 
mcnu_y = scr_height - mcxni_hcight; 

} 

nmn_args = 0; 

XiSeiArg(arglisx[nuin_ajgs], XiNx, menu_x); num_args+ + ; 
XiSetATg(arglisi[num_args], XtNy, menu_y); nuiii_args + + ; 
XiSetValues(menu, arglisi, num_args); 

XtPopupSpriQgLoaded(iDenu); 

} 
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/* 

Rouiijies 10 allow video frames to be stored in memory 

or on disk: NewFrame, GeiFrame, SaveFrame. FreeFrame. SaveHeader. 

CopyHeader. 

•/ 

ifinclude "../include/xwavc.h" 
extern FILE *ziopcnO; 
extern void zseckQ; 
extern void zcIoseQ; 

void NewFrame(vid,number) 

Video vid; 
int number; 

{ 

if (vid- > daia[0]lnimiber] = =NULL) { 

int channel, chamicis = vid->typc==M0N0?l:3; 

for(channeJ =0;channel < channels;channel + +) 
vid- > data[channel] [number] = (shon 
• )MALLOC(si2eof(shon) * Si2e(vid,channel,0)*Si2e(vid , channel, 1 )) ; 

} 

} 

void GeiFrame(vid,numbcr) 
Video vid; 
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ini number; 



{ 

if (vid->data[0] [number) = = NULL) { 

char rile_name{STRLEN], *whole_framc; 
FILE -fp. *fopen(): 
int pid, r. c, channel, 

Stan = vid- > x_offset + vid- > cols»vid- > y_offset, 

end=(vid- > rows-vid- > y_offset-vid- > sae[l])*vid-> ccls-vid- > x_offsci, 
inter = vid- > cols-vid- > si2c(01; 

NewFrame(vid,numbcr); 

sprinif(nic_namc,- %s%s/%s/%s%03d\0".global- > bomc,lMAGE_DIR.vid- > path.vid- > f 
iles[0] = = '\0'?vjd- > name:vid- > files .number + vid- > start); 

Dprinif( "Reading file %s\n",file_name); 

fp«zropcn(file_name,&pid); 

if (vid- > precision = =0) whole_fiamc=(char 
•)MALLOC(vid- > rows*vid- > cols); 

zseek(^,vid-> offset); 

for(channel = 0;channel < (vid- > type = = MONO? 1 :3) ;channel -!--»■){ 
int shiftI21 = {vid- > type = = YUV&& 
channel! =0?vid- > UVsamplcIO]:0,vid- > type - - YUV && 
channel! =0?vid- > UVsample[l):0}; 

Dprintf("Reading channel %d\n", channel); 
if (vid- > precision" =0) { 

if(0= =fread(whole_frame,sizeof(char),(vid->cols> >shiftlO])*(vid->rows> >shift[l]). 

mi 

Dprinn("ErTor whilst reading %s\n",file_name); 
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EphntfC'Enor whilsi reading fes\n".file_nanic); 

) 

Mr = 0;r < vid- > size[ 1 ] > > shifil 1 ] ; r + + ) 

for(c=0;c < vid- > sizelO) > > shift(0];c+ + ) { 
shon 

pel = cu(wholeJramel(vid->x_offset>>shimO])+c-h((vid->y_offs« 
vid- > cols > >shifi[0])]); 



vid- > dau[channel]lnumber]Ic + r*(vid- > sizclO] > > shifi(Ol)] = vid- > negative?-! -pel: pel; 
} 

} else { 

if (stan!=0) 2seck(fp,sxan*si2eof(shon)); 
for(r=0:r<vid->si2e[l]> >shift[l];r++) { 

if(0= = fread(&(vid- > dau[chiiimcl]lnumberllr-(vid- > sizelO] > > shift[0])l),si2eof (short), 
vid- > si2e[0] > > shift(0].fip)) { 

Dprintf("EiTor whilst reading 

%s\n".file_namc); 

Eprintf("Error whilst reading 

%s\n',filc_namc); 

} 

if (inter! = 0) zsc£k(fp,inicr*sizcof(short)): 
if (vid- > negative) 

for(c =0;c < vid- > si2c(0] > > shift[0];c+ -f ) 

vid- > datalchannel]Inumber][c +r*(vid- > sizclO] > > shiftlO])] = -l-vid- > datafchannelKnu 
mbcr][c -l-r*(vid- > size[0] > > shiftIO])] ; 
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Routines to allow video frames to be stored in memory 

or on disk: NewFramc. GeiFrame. SaveFrame, FreeFramc, SaveHeader, 

CopyHeader. 

*/ 

^include "../include/xwave.h" 
extern FILE 'zropenQ; 
extern void zscckO; 
extern void icloseO; 

void NewFramc(vid,nuinber) 

Video vid; 
int number; 

{ 

if (vid- > dau[0)[ntimbcrl = =NULL) { 

ini channel, channels = vid- >typc== MONO? 1:3; 

for(channel = 0;channcl < channels ;channel + +) 
vid- > data(channel] [number] = (short 
•)MALLOC(si2fiof(sbon)*Sizc(vid.channel,0)*Size(vid.channel,l)); 

} 

} 

void GetFran;e(vid, number) 
Video vid; 
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int number; 



if (vid->daia(0][number]==NULL) { 

chai file_narae[STRLEN], •whole_frame; 
FILE "fp, *fopen(); 
int pid, r. c, channel, 

st2n= vid- > x_offsei+vid- > cols*vid- > y_offset, 

end =(vid- > rows-vid- > y_offset-vid- > size[l])*vid- > cols-vid- > x_offsei, 
inter = vid- > cols-vid- > size[0]; 

NcwFrame( vid , number) ; 

sprinrf(file_name/ %s%s/%s/%s%03d\0",global- > home .IMAGE_DIR, vid- > paih.vid- > f 
iles[0] = = '\0'?vid- > name: vid- > files, number vid- > start); 

DprintfCReading file %s\n",file_name); 

fp - 2ropen(file_name ,&pid); 

if (vid- > precision ==0) whole_frame=(char 
•)MALLOC(vid- > rows*vid- > cols): 

2seck(fp,vid- > offset); 

for(channcl=0;chanael< (vid- > type == MONO?! :3);channel-»--i-) { 
int shifi[2] = { vid- > type = = yUV&& 
channel! =0?vid- > UVsaraple[0]:0,vid- > type= =YUV && 
channel! =0?vid- > UVsaniple[l]:0}; 

DprintfCReading channel %d\n", channel); 
if (vid- > precisions =0) { 

if(0= = fread(whole_fraine,si2eof(char),(vid->cols> > shift[0])*(vid->rows> > shift[l]). 

Dprintf("Enor whilst reading %s\n",rile_name); 
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Eprinif( "Error whilst reading %s\n",nie_nainc); 

} 

for(r=0;r<vid->si2e[l]> >shifi(l];r++) 

for(c = 0:c < vid- > sizefO] > > shift[0] ;c + + ) { 
short 

pel = cti(whole_frame((vid->x_offset>>shiftIO])+c + ((vid->y_offset> >shifi[l])+r)*( 
vid- > cols > > shift[0])]); 



vid- > data(channel]Inuinbcr]lc+r*(vid- > si2e[0] > > shift[0])] = vid- > ncgauvc?-l-pel:pel; 
} 

} else { 

if (st2n!=0) zscck(fp.stan*si2cof(shon)); 
for(r=0;r<vid->sizc[l]> >shift[l];r++) { 

if(0= = fTead(&(vid- > dau[channel](number]lr*(vid- > sizcIO] > > shiftI0])l).si2eof (short), 
vid->si2e[0]>>shiftI0].fp)){ 

Dpriiitf( "Error whilst reading 

%s\n",file_namc); 

Eprintf( "Error whilst reading 

%s\n",rile_name); 

} 

if (inter! = 0) 2seek(fp,inter*si2eof(short)); 
if (vid- > negative) 

for(c=0;c < vid- > si2e(0] > > shiftIO];c-»- +) 

vid- > daia[channel][numberJ[c-Hr*(vid- > sizc[0] > > shift[0])] =-l-vid- > data[channel]lnu 
mbcr][c -i-r*(vid- > size[0] > > shifi[0])]: 
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void SaveHeader(vid) 

Video vid; 

{ 

HLE -fp, 'fopenO; 

char nic_namc[STRLEN]: 

String iypesn = {"MONO","RGB"."YUV"}; 

Dprintf("SaveHeader %s\n",vid->n2me); 

sprintf(filc_name. " %s%s/ %s%5\0" .global- > hoinc.VID_Dm.vid- > name, VID.EXT); 

fp = fopen(filc_name, " w"); 

fprintf(fp.'Path \" %s\'\n',vid- > path); 

if (vid->filcs(0]! = '\0*) fprintf(fp."FUes \" %s\''\n', vid- > files); 

if (vid->typc==YUV) fprintf(fip."Typc %s %d 
%d\n".types[vid- > type], vid- > UVsamplc[0].vid- > UVsamplc[l]); 

else fprintf(fp.'Type %s\n",types[vid->typcj); 

if (vid- > rate! =0) fprintf(fp, "Rate %d\n",vid->raie); 

if (vid- > disk) fprintf(fp."Disk\n"); 

if (vid- > gamma) fiprintf(fp,"Gamma\n"); 

fpriDtf(fp, "Stan %03d\n",vid- > stan); 

fprintf(fp,"Uiigth %d\n",vid->si2e[2]); 

fprintf(fp, "Dimensions %d %d\n",vid->cols,vid->rows); 

swiich(vid-> trans. type) { 

case TRANS_None: lprintf(fp, "Transform NoneVn"); break; 

case TRANS_Wave: fiprintf(fp, "Transform Wavelet %d %d 
%s\n".vid- > trans.wavclei.space[01.vid- > trans.wavelet.spacelll.vid- > trans.wavelet.diro 
?"Yes":"No"); break; 
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} 

fprintf(fp. 'Header %d\n'' .vid- > offset); 

fprinrf(fp. "Offsets %d %d\n".vid->x_offsct,vid->y_offset): 

fprintf(fip,"Si2£ %d %d\n",vid- >-si2e(0],vid->si2e[l]); 

fprintf(fp, 'Trecision %d\n",vid- > precision); 

fclose(fp); 

} 

Video CopyHcader(src) 

Video src; 

{ 

Video dst=(Video)MALLOC(sizeof(VidcoRec)); 
int channel; 

Dprintf("CopyHeader %s\n",src); 

stTcpy(dst- > path.src- > path); 

sncpy(dst- > name, src- > name); 

dst- > type - src- > type; 

dst- > disk = src- > disk; 

dst- > gamma = src- > gamma; 

dst- > negative = False; 

dst- > rate = src- > rate; 

dst- > start = src- > start; 

dst- > siielO] = src- > si2e[0]; 

dst- > sizell] =src- > si2c[l]: 

dst- > si2e[2] = src- > size[2]; 

dst- > UVsamplefO) >= src- > UVsamplelO] ; 

dst- > UVsample[ 1] = src- > UVsample[ 1] ; 

dst- > offsets©; 

dst- > cols = src- > si2e[0] ; 
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dst- > rows=src- > si2e{l); 

dst->x_offset=0; 

dsi->y_offsct=0; 

dst- > trans = src- > irans ; 

dst- > precision = src- > precision; 

for(cbannel = 0;channei< (src- > type= =M0N0?l;3):channel-t- +) 

dsi->data[channel] = (short ••)MAl-LOC(src- > si2e(2]»sizeof(short *)); 
rctum(dst); 
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Transform video using wavelet transform 

*/ 

^include "xwave.h" 
^include •Transform.h" 
exiem shon RoundQ; 

void DropVideo(w,cIosure,call_data) 

Widget w; 

caddr t closxirc, call_daia; 

{ 

Video video=global-> videos- > next; 
int frame, channel; 

for(channel =0:channcl < (global- > videos- > typc= = MONO? 1 : (global- > videos- > type = 
=YUV?3:4));channcl++) 

if (global- > videos- > data[chanDcl] ! = NULL) { 

for (fiaine=0;frame<global->videos->size[2);ftame-l-+) 
if (global- > videos- > daQ[channel][frame]! =NULL) 
XtFree(global- > videos- > dau[channel3Iftaine]); 

XiFrce(global- > videos- > data[chaiiDel]); 

} 

XtFrce(global-> videos); 
global- > videos = video; 
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void ChanEePrecision(src,dst. frame, old, new) 



Video src, dst; 



inc 



frame, old, new; 



int channei, i; 

if(src!=dst 1 1 old! = new) { 
int shift = new-old; 

DprinrfC Changing precision %d to %d for frame %d\n", old, new, frame); 
for (channel=0;cbannel<(src->iypc==MONO?l:3);channel + +) { 
int si2e=Si2e(src,channel,0)*Si2e(src,channel,l); 



dst- > data(channel][frame][i] = shift<0?Round(src- > dau[channcl][frame]lij.-shift):(shift 
= =0?src->data(channel][framc][i]:sn:->daia[channel][framc]ni< < shift); 



for(i«"0;i<si2e;i + +) 



} 



void TransfonnCtrl(w,closure,call_data) 



Widget 



w; 



caddr t 



closure, call_data; 



TransCtrl 



Ctrl = (TransCtrl)closure; 
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Video src = cirl- > src, dst = CopyHcadcr(src); 
long i, frame, channel; 

Dprintf("TransformCirl\n"); 

stTcpy(dst- > name, Ctrl- > name); 

dsi- > trans.typc =TRANS_Wavc; 

dst- > trans. wavclei.spacc[0] =ctrl- > space[0]; 

dst- > nans. wavelet. space[l] =ctrl-> spacc[l]; 

dst- > tians.wavelei.dirn=ctrl- > dim; 

dst- > precision = Ctrl- > precision; 

strcpy(dst- > files.dsi- > name); 

if (dst- > disk) SaveHcader(dst); 

if (src- > trans.type! =TRANS_Wave) { 

src- > trans . type = TRANS_Wave ; 

src- > trans. wavelet.space[0] =0; 

src- > trans, wavclet.spacell] =0; 

} 

if (src->tTans.wavclct.spacelO]!=dsi->trans.wavclet.spacc[0] 1 1 
src- > irans.wavelet.space[l]! =dst- > trans, wavelet, space [1]) 
for(frame=0;fTame<dst->si2eI2];frame++) { 
int 

max _prccision= src- > precision > dst- > precision?src- > precision: dst- > precision; 

Dprinrf(" Processing frame %d\n", frame); 

NewFrame(dst,ftaine); 

GctFrame(src.frame); 

ChangcPreci5ion(src,dst.framc.src- > precision.maxj)recision); 
for (chamiel=0;channel<(src->type==MONO?l:3);channeH--»-) 

{ 

int oci_STC=src->trans.wavelet.space[channel==0?0:ll, 
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oct dst=dst-> traiis.wavclet.space(channel = =0?0:1], 

size[2] = {Size(dsi,ch2Jinel. 0),Si2e(dsi. channel, 1)}; 

if (oct_src!=oct_dst) 
Convoive(dsi- > dat2(channcl][fraine],cirl-> dini.si2e,oct_src,oct_dst): 
} 

ChaiigePrecision(dst,dsi. frame. max_precision,dst- > precision); 
SaveFraine(dst,frame); 
FrceFraJiic(dst,frame) ; 
FrceFraine(src .frame); 

} 

if (src-> trans. wavelet. space[0] = =0 && sn:->ffans.wavelct.spacc[l] = =0) 
src- > trans. type =TRANS_None; 

if (dst- > tians.wavelet.spacefO] = =0 && dst- > trans. wavelei.spacc[l] = =0) { 

dst- > trans, type = TRANS_None; 

if (dst- > disk) SaveHcader(dst); 

} 

dst- > next = global- > videos; 
global- > videos =dst; 

} 

void Transtype(w,closurc,cal]_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video vid=(Video)closure; 

if (vid- > trans. wavelet.spacelO] = =0 && vid- > trans. wavelet.spacefl] = =0) 
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vid- > trans. typc = TRANS_None; 

) 

void Bau:hTransCtrl(w,closure,call_dai2) 

Widget w; 

caddr t closure, call_data; 

{ 

TransCtrl cirl=(TransCtrl)closure; 

if (Ctrl- > src = = NULL) Ctrl- > src = FindVideo(cirl- > src_name,global- > videos); 
if (Ctrl- > src- > trans.typc= =TRANS_Wavc) 
Ctrl- > dim=ctrl- > src- > tians.wavclct.dini; 
Transf onnCtil(w , closure , call_data) ; 

} 

TransCtrl InitTransCtrl(name) 

String name; 

{ 

TransCirl ctrl = (TransCul)MALLOC(si2eof(TransCtrlRec)); 

strcpy(ctrl- > src^name .name); 
strcpy(ctrl- > name.naine): 
Ctrl- > dim = False; 
Dpriiitf("Traiisfonn\n"); 
retum(ctrl); 

} 

#define TRANSJCONS 16 
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void Transfomi(w.closure.caJl_dau) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video video =(Vidco)closure; 

TransCtrl Ctrl = InitTransCtrKvideo- > name); 

Numlnput spacebipui = (Numliiput)MALLOC(2*si2eof(NuinIiipulRec)), 

preclnput = (NuiiiInput)M ALLOC(si2cof(NuiiiliipuiRec)) ; 
Message msg = NewMessage(cirl- > name,NAME_LEN); 
XtCallbackRec destroy_caIin = { 

{Free,(caddr_t)ctrl}, 

{Free. (caddr_t)spacelnput} , 

{Free.(caddr_t)prcclnput}, 

{ CIoseMessagc ,(caddr_t)msg} , 

{NULL,NULL), 

}: 

Widget parent = FindWidgcK "£nn_transform " ,XtPareni(w)) , 

shell = ShellWidgeK "transform" ,parent.SW_bclow,NULL.destroy_caIl). 

fonn = FormaiWidgei("trans_fom" .shell), 
widgeisfTRANSJCONS]; 

Fonnltcm itemsQ-{ 

{ • traiis_canccl " , 'cancel " ,0,0,FW_icon,NULL} , 
{ "traiis_confinn" , "confiimM ,0,FWJcon,NULL} , 
{"trai3S_tiUe', "Transform a video",2,0,FWJabel,NULL}, 
{ "trans_vidjab* , "Video Name: " ,0,3.FWJabeKNULL} , 
{'tians_vidco",NULL.4,3,FWjexi,(String)msg}. 

{ "iiaiis_dirajab" , 'Direoion: " ,0.4,FW_labeI,lWLL} , 
{ "trars_dini" .NULL.4.4.FW_yn.(String)&ctrl- > dim}, 
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{"n^iis_biis_ini\NUIJ-.0,6.nV_initgcr,(String)precInpui}, 
{"irans biis_down".NIJLL,4.6,FW_down,(Smng)precInput}. 
{"trans_biis_up",NULL.9,6,FW_up,(String)prccInput}, 

{"trens_spcO_inl\NULL,0.8.FW_mteger,(String)&spacelnput(0]), 
{"tr2ns_spcOJownVKUlX,4,8.FW_down.(Striiig)&spac€lnput[0]}, 
{ " trans_spcO_up " . NULL, 12.8 ,FW_up ,(String)&spaceInput(0] } . 
{"trans_spcl_int",NULL.O,ll,FW_int£ger.(Siring)&spaccInput(l]}, 
{ " trans_spc 1 Jown ^ NULL,4 , 1 1 ,FW_do wnXSiring)&spaceInputI 1 1 } , 

{"trans_spcl_up%NULL,15.11,FW_up,(String)&spaceliiputIl]}, 

}; 

XtCallbackRec callbacksQ = { 
{ Destroy , (caddr_t)shcll} , 
{NULL,NULL}, 
{TransfonnCtrI,(caddr_t)ctrl}, 
{Destroy , (caddr_t)shell} , 
{NULL,NULL}, 

{ChangeYN,(caddr_t)&cirl->dini}, {NULL,NIJLL}. 
{NumIncDec,(caddrj)precInpui}, {NULL.NULL), 
{NumIncDec,(caddrj)precIiipui}, {NULL,NULL}, 
{NumlncDec,(caddrj)&spaceInput(OJ}, {NULL.NULL}, 
{NumIiicDcc,(caddrj)&spaceInput[0]}, {NULL.NULL}, 
{NumIiicDec.(caddr_t)&spaccInput[l]}. {NULL.NULL}, 
{NumlncDec, (caddr J)&spaccliiput[ 1] } , {NULL.NULL} , 

}; 

Dpriiiif("Transfonn\n*) ; 

msg->rows=l; msg->cok=NAME_LEN; 

Ctrl- >src= video; 

if (video- > trans. type = =TRANS_Wave) { 

Ctrl- > space[0] = video- > trans. wavelct.spacc[0] ; 
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Ctrl- > spaccf 1 ] = video- > trans, waveiet. spacc{ 1 ) ; 
crrl- > dini=video- > trans, wavelet, dirn: 
} else { 

ctrl->space[0] = 0; cirl->space(l]=0; 
Ctrl- >dira= False; 

} 

Ctrl- > prccision= video- > precision; 

spaccInput[0].format = video->typc==YUV?"Y-Space: %d": "Space: %d"; 

spacelnput[0].max= 100; 

spacelnput(0].min=0; 

spacelnputlO]. value «&ctrl- > space[0]; 

if (video- > type ==YUV) { 

spacelDputIl].fonnat="UV-Spacc: %d"; 

spaceliiput[l].inax = 100; 

spacelq)m[ 1 ] .min = 0; 

spacelnput[l].valuc =&ctrl- > spacefl]; 

} 

precInput-> formats "Precision: %d"; 

preclnput- > max = 16; 

preclnput- > min=0; 

preclnput- > value = &ctrl- > precision; 

FillForm(fGnn.TRANS_ICONS-(vidco-> typc= = YUV?0:3),itcms.widgeis.caUbacks); 
if (video- > trans.typc= =TRANS_Wavc) XtSetSensitive(widgctst6], False); 
XtPopup(shell,XtGrabExclusivc); 

} 
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Update Image, Info and InfoTcxt from positional infonnation 

•/ 

^include " . ./include/xwave.h" 

^include <varargs.h> 

extern int CompositePixel(); 

extern int DiiherO; 

extern shon RoundQ; 

extern int ReMapO: 

extern Palette FindPaletteQ: 

char ''ResizeData(size) 

im size; 

{ 

static char *data»NULL; 
static int data_si2e=0; 

if (size!=data_size) { 

Dprintf("New frame meinory\n"); 
if (data! = NULL) XtFree(data); 
data = (char *)MALL0C(si2e); 
data_size=si2c; ' 

) 

renim(data); 

} 
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Pixmap UpdaicLmagcCfrarac) 

Frame frame; 

{ 

int X. y. i; 

Display 'dpy = XtDisplay(global- > loplevel) ; 
void CvtlndexO, UpdaiePointO; 

Palette pal = FindPalen£(global- > palcties, frame- > palctie): 
Video vid= frame- > video; 

int scni=XDefaultScreen(dpy), dcpth=DisplayPlanes(dpy,sciB). 

size[2) « {Si2c(vid,frame- > chaimel,0),Size(vid,frame- > channel, 1)} , 
img_sizc[2] = {sizc[0] < < frame- > 2oom,si2e[l] < < frame- > zoom}, 
bpl = (img_si2c[0] •depth + 7)11 , ncw_size = img_si2e( 1 J "bpl, 
space = vid-> trans. wavclct.space[vid-> type --YUV && 
frame- > channel! =0 && frame- > channel! =3?1 :01; 

char •data=ResizeData(new_si2e); 

Xlmage 

*image=XCrcatcImagc(dpy .global- > visinfo- > visuaI,dcpth.ZPixmap.0,data,img_si2e(0],i 
mg_size[l],8,bpl); 
Pixmap 

pixmap=XCrtaiePixmap(dpy,DefaultRooiWindow(dpy),img_si2e[01,img_si2c[l],depth); 
Dprintf("UpdaicImagc\n"); 

if (global->levels==2 Sl& frame- > channel = =3) frame- > channel =0; 
for(y=0;y<si2e[l];y-»-+) for(x=0;x<si2e[0];x+ +) { 
ini dau_x=x, data_y»y, off^x, off_y, oct; 

if (vid- > trans.type = =TRANS_Wave) 
CvUndex(x,y,si2£lO] ,si2e[ 1 ] ,space,&data_x,&daia j'.&oa); 

for(off_x=0;off_x < 1< < frame- > 20om;ofr_x + +) 

for(off_y = O;off_y < 1< < frame- > zoom:ofTj' + +) { 
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ini iing_x = off_x+(x< < frame- > zoom), 
ijng_y=off_y+(y< < frame- > zoom), 

pix=CompositePixel(frame,data_x,daia_y,iing_x.imgj'); 

XPutPixcl(im2gc,img_x.img_y,R£Map(pix,global- > levels,pal)); 
} 

} 

XPutImagc(dpy.pixinap,DefaultGC(dpy,scTB).image,0,0,0.0,img_si2e[0].m^^^ 
if (frame- > point_switch= =Truc) UpdatePoint(dpy,frame.pixmap); 
XtFrcc(image); 
rctum(pixmap): 

} 

void CviIndex(x,y,max_x,max_y,oct,rct__x,rtt_y,ret_oct) 
int X, y. max_x, max_y. oct, •Tei_x, "letjr, •Tet_oct; 

{ 

Boolean bgx=x> =(max_x> > 1). hgy«y > =(maxjr> > 1); 

*ret_x - hgx?x-(max_x > > l):x; 
•ret_y=hgy?y-(max_y> > l):y; 
if (!hgx &A !hgy && oct> 1) { 

CvtIndex(*Tei_x.*Tet_y,max_x> > l.max_y> > l,oct-l,ret_x^t_y,ret_oct); 
*rct_x= ♦rct_x<<l; 
•ret_y= ♦ret_y<<l; 
»ret_o«-l- = l; 

}elsc{ 



Copied from 10340491 on 04/01/2005 



wo 9J-'23J85 



PCT,GB«M/00677 



•ret_x = (Tet_x< < l) + hgx: 
•rct_y=(»ret_y< < l) + hgy; 
•rct_oct = hgx 1 1 hgy?0:l; 



void Updaiclnfo(frame) 

Frame frame; 

{ 

Message msg= frame- >msg; 
Video vid= frame- > video; 

ini •loco = frame- > point- > location. posn(2]*{locn[0],locn[l]), 
channel = 3 = = frame- > channcl?0:framc- > channel. 
width=Size(vid,channel.O); 

short • data = vid-> data (channel] [frame- > frame]; 

msg- > info.ptrlO] = '\0'; 

msg- > info, length "0; 

if (vid- > type = = YUV && channel! «=0) { 

posn[0] =posn(0] > > vid- > UVsamplelO]; 

posn(l] = posn[l] > > vid-> UVsample(l]; 

} 

if (vid- > trans.type! = TRANS_Wave) 

Mpiinif(msg, "Poim : x » %03d y « %03d t - %03d 
c = %4d " ,locn(0] ,locn[ 1 ] .frame- > frame vid- > stan,data[posn[0] + Si2e(vid, channel .0) *po 
sn[l]]); 

else { 

int octs=vid-> trans. wavelet.space[vid->typc== YUV &&. 
channel! =0?1:01, 

X. Y, oct, sub. 
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blkDCP] = {(posDlO] > > ocis)&-2.(posn[l] > > octs)&-2}. 

offDCl2] = {(posn(0]> >octs)«S:l,(posn(l]> >octs)&l}; 



MpriDtf{msg, "Point : f = %03d x= %03d 
y = %03d\n", frame- > frame + vid- > stan,locn[0].locn(l]); 

Mprintf(msg,"Low pass: x= %03d y= %03d\n".blkDC[0],blkDC[l]); 
for(Y=0;Y<2;Y++) { 

for(X=0;X<2;X++) 

Mprintf(msg/%4d%c^daulAccess(blkIX:lO]+X.blldDC[l]+y,octs-l^ 

DC[01 Y==offDC[ll?**':' '); 

Mprintf(msg,"\n"); 

} 

for<oct=ocu;oct>0:oct-) { 

int blkl21 = {(posnlO] > > oct)&-2,(posn[l] > > oct)&-2}, 

offl2] = {(posnIO] > > oct)&l .(posnll] > > oct)&l } ; 

Mprintfdnsg/Oct : %d\n",oct); 
for(Y-0;Y<2;Y++){ 

for<sub=l:sub<4;sub++) { 
for(X=0;X<2;X++) { 

Mprmtf(msg/%4d%c\datalAcccss(blklO]+X,blk[l]+Y,oct-l,sub,widih)],X==om 
&&Y==offll]r*':'*): 

} 

if (sub < 3) Mprinif(msg, ' "); 

} 

if (oct! =0 1 1 Y= =0) Mprintf(insg,"\n"): 

} 

} 

} 
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Mflushdnsg); 

} 

/• Funciion Name: CrossHair- 

• Description: Draws cross-hair on pixmap 
Argumenis: dpy - Xserver display 

• pixmap - pixmap to draw on 

• gc - GC to draw with 

x_off, y_off - offset into pixmap 

• width, height - size of box containing cross-hair 

• X, y - coordinates within box 

• zoom - scaling factor 

• Returas: alters pixmap. 
•/ 

void CrossHair(dpy,pixmap,gc,x_off,y_off,width,hcight,x,y ,200m) 

Display 'dpy; 
Pixmap pixmap; 
GC gc; 

int x_off. y_off, width, height, x, y, zoom; 
{ 

ini xira=Shift(l,zoom); 

x_off = Shift(x_off ,200m); 
y_^off = Shift(y_off,zoom); 
width = Shifl(width,zoom); 
height = Shift(heighi,zoom): 
x=Shift(x.zoom); 
y=Shift(y.zoom); 
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XFiIlRecungle(dpy,pixmap,gc.x + x_off+xira/2,y_off.l.y): /* Nonh hair */ 
XFillRcct2nglc(dpy.pixmap,gc.x_off.y+y_off+xtra/2.x.l); /• West hair •/ 
XFUmccuDglc(dpy .pixmap.gc.x + x_off -i- xtray2 .y + y_off + xtra, 1 ,height-y-xira); /" 
South hair •/ 

XFillReciargle(dpy .pixmap.gcx + x_off + xtra.y +y_off + xtra/2, width-x- 1 . 1 ); /• 
East hair */ 

] 

/• Function Name: UpdaiePoint 

* Description: Draws cross-hair on image at frame- > location 

* Arguments: dpy - X server display 

* frame - Frame supplying drawing parameters 

* pixmap - X pixmap to draw on 

* Returns: alters pixmap. 



void UpdaiePoint(dpy,lTaine,pixmap) 

Display 'dpy; 
Frame frame; 
Pixmap pixmap; 

{ 

unsigned long gcmask; 
XGCVahies gcvals; 
CSC gc; 

Video vid=frame-> video; 

int posnI2] = {frame- > point- > location[0], frame- > point- > location[l]}, 
channel = 3 = = frame- > channcl?0: frame- > channel; 

gcvals.funciion=GXequiv; 
gcmask = GCFunction; 
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gcvals.foregrDimd = 127; 

gcmask = gcmask| |GCForegTOund; 

gc = XCreaieGC(dpy .pixmap.gcmask.&gcvals); 

if (vid-> type = =YUV && channel! =0) { 

posD[0] = posn(0] > > vid- > UVsainplc(0] ; 

posn[l] = posn(l]> > vid->UVsamplcfl]; 

} 

if (vid- > trans.iype! =TRANS_Wavc) { 

CrossHair(dpy,pixinap,gc,0,0,Si2e(vid,channel,0),Si2e(vid, channel, l),posn[0],posn[l],fra 
me- > zoom): 
} else { 

int ocis = vid- > trans . wavelet. space[vid- > type = = YUV && 
channel! =0?1:0], oct, 

si2e(2] = {Size(vid,channel,0),Size(vid,chanDcl,l)}; 

CrossHair(dpy.pixm2p.gc,O.O.si2c(0],sizeIl],posn(0],posn[l],framc->20om-octs); 
for(oct=l;oct< =octs;oct-»-+) { 

CrossHair(dpy,pixniap,gc.si2e[0].O.si2c(0],size(l],posn[0],posn[l],fTame->zoora-oct); 

CrossHair(dpy,pixmap,gc,0,si2e(l],si2e(0],si2ell],posn[0],posnIll,frame->20om-oct); 

CrossHair(dpy ,pixniap,gc,size[0],si2c[l] ,size[0] ,si2c[ 1] ,posn(0] ,posn[ 1] .frame- > zoom-oct 

); 

} 

} 

XFrecGC{dpy,gc); 

} 
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sourceA^ideo2.c 



Video callback rouiines for Listing, Loading 



^include 



^include 



^include 



"../Includfc/xwave.h" 

" . . /includeyimageHcader . h" 

"../include/DTheader.h" 



^include "Video.h" 

^include <sys/time.h> 

extem void EraseFrameO; 

extern void CvtlndexQ; 

void SonListOist,nD) 

String listO; 
int no; 



if (no>l) for(i=l;i<no;i++)for(j=0:j<iJ ++) { 
k=0; 

whUc(list[i][k] = =listU]Ik] &&.lisi[il[k]! = '\0' && lisi[j][k]! = '\0-) k+ + ; 
if(list(nik]<listU]Ik]){ 
String spare =list[n; 

list[i]=list(j); 
listD] = spare; 

) 
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Siring *ReadDircctory(dir_path.cxtcnsion) 

Siring dirjjaih. exiension; 

{ 

DIR •dirp. •opcndirQ; 
struct dirent *dp. *rcaddirO: 
static String *rilcLisi=NULL. file; 
int count =0, i; 
char path[STRLEN]; 

DprintfCReadDireciory for %s extensionXn", extension); 
if (fJeListl^NULL) { 

for(i=0;hnJLL! = rilcList[i];i + +) ficc(rUcList[i]); 

frec(fileList): 

} 

rileList = (String •)MALLOC(sueof(String *)*300); 
sprintf(path, " %s%s\0", global- > home,dirj)ath); 
diip»=opendir(path); 

for (dp = rcaddir(dirp);dp!=NULL && couni<299;dp=readdir(dirp)) { 
int length = strlen(dp- > d_name) ; 

if (length > =strlen(exiensicn)) 

if (!strcmp(dp- >d_namc+lcngth-strlen(cxiension), extension)) { 
Dprintf("Found %s in dir\n".dp->d_namc); 
fileLisi[count]=(char *)MALLOC(lcngth+l); 
stnicpy(fileList(couni],dp- > d_name,length-strlen(extension)); 
couni+ = 1; 

} 



Copied from 10340491 on 04/01/2005 



wo w/ruaf 



- 369 - 

} 

filcList[coum]=NULL; 
SonList(nieList.coum); 
closcdir(diip); 
rerum(fi]eList); 

} 

int Shift(value.shift) 
int value, shift; 
{ 

if (shift= =0) retuni value; 

else if (shift <0) return(valuc> > -shift); 

else remm(va]ue < < shift); 

} 

int Si2e(vidco,channel,diinension) 
Video video; 

int channel, dimension; 

{ 

if (video- > type = = YUV && dimension! =2 SsA channel! =0 && channel!" 3) 
rerum(video- > si2c[dimcnsion] > > video- > UVsample [dimension]); 
else rEnirn(video->sizeIdimension]); 

} 

ini Address2(vidco,chamiel,x,y) 

Video video; 

int channel, x, y; 
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{ 

if (video- > type ==YUV channel! =0 &&. channel! =3) 
return(x + Size(video.chanDel.O)*y); 

else renjni(x + video->si2e[0]»yj; 

} 

int Address(video.channel,x.y) 

Video video; 

int channel, x, y; 

{ 

if (video- > type ==YUV && channel! =0 &.& channel! =3) 
return((x> > video- >UVsamplc[0])+Si2e(vidco,channe].0)*(y> > video- >UVsainple[l]) 

); 

else return(x+video->si2e[0]»y): 

} 

String *VideoListO 
{ 

DprintfCVideoListXn"); 
remm(ReadDiiectory(VID_Dm,VlD_EXD); 

} 

Siring *KJlcsListO 
{ 

Dprintf( "KlicsList\n ") ; 

renjni(ReadDirectory(iaJCS_DIR,iaJCS_EXT)); 

} 
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String "WicsListSAO 
{ 

Dprintf( "KJicsLisiSA\n'); 

retum(ReadDirectory(KLICS_SA_DIR,iaiCS_SA_EXT)); 

} 

String •VideoQirrentListQ 
{ 

static Siring vidcoList[300]; 
Video vidco=global-> videos; 
int count =0; 

Dprintf( " "VideoCurrcniUstXn") ; 
while (video! -NULL) { 

if (count==300) Dprinif("VideoCurrcntList: static size cxceeded\n"); 

vidcoListfcoum] = video- > name; 

video = video- > next; 

couni+ = l; 

} 

videoLisi[count] - NULL; 
SortList(vidcoList,count): 
rcwni(videoList); 

} 

String *VideoYUVListO 
{ 

static String videoList[300]; 
Video video=global- > videos; 
int count =0; 
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Dprimf( ' V ideoCurTcniList\n " ) ; 
while (video! = NULL) { 

if (count = = 300) Dprinif("VideoYUVLisi: suiic size exceededNn"); 

if (video- > type = =YUV) videoList|couni+ +] = video- > name; 

video=video->next; 

} 

videoListlcoum] = NULL; 
SonList(videoList,count); 
retum(videoList); 



Suing •VideoDropListO 
{ 

static String videoListf300]; 
Video video = global- > videos; 
int count =0; 
Boolean VidcoHasFramc(); 

Dprintf("VideoDropLisi\n"); 
whUe (video! = NULL) { 

if (False ==VidcoHasFramc(video,global-> frames)) { 

videoList[count] = video- > name; 

count -J- = 1; 

}; 

video = video- > next; 

) 

videoLisi[count] = NULL; 
SonList(videoList,couEt); 
remm(videoList); 
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Boolean VidcoHasFrame(video. frame) 

Video video; 
Frame frame; 

{ 

if (frame == NULL) retum(False); 

else if (frame- > video = = video) retum(True); 

else Ttrum(VidcoHasFramc(video,frame-> next)); 

} 

void VideoLoad(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video vid=(Video)MALLOC(si2eof(VideoRec)); 
XawLisiReturnStruct *name = (XawListRenmiStruct *)call_data; 
int frame, channel; 

DpriDtf("VideoLoad %s\n",namc-> string); 
strcpy(vid- > name.name- > string); 
strcpy(vid- > files.name- > string); 
vid- > Dext= global- > videos; 
global- > videos = vid; 
vid- > rate =30; 

PaT5e(VID_DIR.namc- > string, VID^EXT); 

for (channel =0;channel < (vid- > typc= =M0N0?l:3);channel-f -f-) 

vid->data[channel] = (shon ♦*)MALLOC(sizcof(shon *)*vid. > si2e[2]); 
if (!vid->disk) for(£rame=0;frame<vid->size[2];frame+-l-) 
GctFraine(vid,frame): 
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Dprimf('VideoLoad tenninaied\n"); 

if (global- >baich== NULL) IniiFrame(w.closure.call_daia); 

} 

void VideoSave(w,closure,call_data) 

Widgei w; 

caddrj closure. call_daia; 

{ 

Video video; 

XawLisiRetumSmict »nanic = (XawLisiRcturnSmict *)call_data; 
int frame; 

video = FindVideodame- > string, global- > videos); 

if (video- > filesIO) « - '\0') sccpy(video- > files,name- > string); 

SaveHeadcr(video): 

for (frame =0;franic< video- >size[2];frame-K+) { 
Boolean disk = video- > disk; 

GetFrame(video,frame); 
video- > disk =Tnic; 
SavcFrame(video,framc); 
video- > disk -disk; 
FrecFramc(video,frame); 

} 

Dprintf("VideoSave terminatedXn"); 

} 

void VideoDTSave(w,closure,call_data) 
Widget w; 
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caddr t closure. call_data; 

{ 

Video video; 

HLE 'fp. -fopenO; 

XawLisiRcmrnSmict •naine = (XawListRemniSinict '■)can_data; 
char filc_Mjne[STRLEN], whole_fran)e(512][512]; 
in! frame, i. x, y, off5ct[2]; 
DTbeader 

header={"DT-IMAGE\l,4a,2,"",--,l.{0,0.4,0},l,l,0,l,{4.3}.8.1.{0.2}.{0.2}.{0.2).{0 
,2},"","xwave generated image",""}; 

DprinifC" VidcoDTSave %s\n" .name- > string); 
video = Find Vidco(namc- > sirmg,global-> videos); 

sprinrf(file_nanie,"%s%s/%s/%s%s\0",global- > home,IMAGE_DIR, video- > path,video- 
> files, ".img"); 

offset[0]=(5I2-video- > si2e[0])/2; 

offset[l]=(512-vidco- > si2c(l])/2; 

offsei[0] =offsetIO] < O?0:offset(0]; 

offset(l] =offset[l] < O?0:offsetll]; 

fp = f open(filc_name , ' w ") ; 

fwriic(&hcader. 1 .si2cof(DThcader).fip): 

GetFrame(video,0); 

for(y=0;y<312;y++) for(x=0;x<512;x++) { 
int X, Y, oa; 

if (y<offset[l] 1 1 x<offsct[0] 1 1 y-offsetIl]> = video- > sized] 1 1 
x-offsetIO] > = video- > si2e[0]) whole_ftame[y][x] =0; 
else { 

if (video- > trans;type = =TRANS_Wave) { 
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CvtJndcx(x-offsci(0].y-offsct[]]. video- > sizefO], video- > size[l]. video- > trans. wavelet. spa 
ce[0],&X.&Y.&oct); 

vi'hole_franie[yJIx] = 128 + Round(video- >dataIO][0](Y*video- > si2e[0] + X]'(oci= = video 
- > irans.wavelet.space{0]?l:4),video-> precision); 
}clsc{ 

X = x-offset[0); Y=y-offset[l]; 

whole_frame[y]Ix] = 128 + Round(video- > dau[OI(0][Y*video- > sizefO] +X], video- > preci 
sion); 

} 

) 

} 

FrecFrainc(vidco,0); 

fwriic( whole^frame , 1 ,5 1 2*5 12 ,fip); 

fclose(lTp); 

) 

void VideoXimSave(w,closurc,call_dau) 

Widgei w; 

caddr_t closure, cail_data; 

{ 

Video video; 

HLE *fip, *fopeiiO; 

XawListRenimStnict *naine=(XawListRetumStiuct "')call_data; 
char riIe_iumc[STRLEN], *whole_ftame; 
int frame, channel, i, x, y; 
ImageHeader header; 

Dprintf("VideoXimSavc %s\n".narac-> string); 
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video = FindVideo(name- > siring.global- > videos); 

whcle_frame = (char •)M ALLOC(video- > sizefO] 'video- > sizefl]); 

if (video- > rUesfO] = = '\0') sircpy(video- > files.name- > string); 

sprintf(file_inme."7cS%s/7c5/%s%s\0".global->home,]MAGE_DIR,video->paih.video- 
> flics, ".xim"); 

fp=fopen(rile_name,"w"); 

sprintf(header.rile_venion, " %8dMMAGE_ VERSION); 
sprintf (header . header_si2e, " % 8d M 024) ; 
sprintf(header.image_widih,"%8d", video- > sizefO]); 
sprintf (header. iniagc_hcight, " % 8d " , video- > size( 1]); 
sprintf (header . num_colors , " % 8d " ,256) ; 

sprintf (header. nuin_chaiinels, " %8d", video- > type= =M0N0?1:3): 

sprintf(header.num_pictures, " %8d",video- > size[2]); 

sprintf (header.alpha_chamicl, " %4<l" .0); 

sprintf (header, riinlength, " %4d",0); 

sprintf(header.auihor,"%48s","rwave"); 

sprintf(header.date, " %32s" , "Now"); 

sprintf (header. prcgram, " % 16s","xwavc"); 

for(i-=0;i<256;i + -t-) { 

header.c_map[i][0]=(unsigiied char)i: 

header.c_map[i][l]= (unsigned char)i; 

header.c_map[i][2]=(unsigned char)i; 

} 

fwrite(&header, 1 ,sizeof(ImageHeader),fp); 

for (frame = video- >stan;fiame< video- >start+ video- >si2e[2J;fiame++) { 
GeiFrame(video,frainc-video- > start); 

for(channcl = 0;channcl< (video- > typc= =MON0?l:3);chanDcl-f -I-) { 
for(x=0;x < video- > si2e[0);x + +) 

for(y =0;y < video- > si2e[l];y+ +) 

whole_fxame(x + video- > si2e(0]*y] = itc(video- > daia[channel][frame-video- > sian][Addre 
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ss( video. channcl.x.y)] > > video- > precision); 

fu'riie(whole_frame,si2eof(ch2r). video- > si2c{0]^video- > si2e[l],fp); 

} 

FreeFrame(video. frame-video- > sian); 

) 

fclose(fip); 

XtFree(whole_frame); 

} 

void VideoMacSavc(w,closurc,call_data) 

Widget w; 

caddrj closure. call_dau; 

{ 

Video video; 
FILE •fp, •fopcnO; 

XawListRenunSmjct *namc=(XawLisiRcturnStruct •)call_data; 
char filc_nanic(STRLEN], *wbole_frame; 
ioi frame, channel, i, x, y; 

DprintfCVidcoMacSave %s\n",name-> string): 

video's Find Video(name- > string, global- > videos); 

if (video- > files[0] = = '\0') strcpy(video- > files.name- > string); 

sprintf (rile_name ,'%s%s/7cs/%s%s\0' .global- > home ,1MAGE_DIR. video- > path, video- 
> files, ".mac"); 

fp = fopeD(file_name, " w"); 

whole_frame = (char •)MALLCX:(video- > si2c[l] ♦video- > si2e(0]'3); 
for(frame=0;frame<video->si2eI2];frame-»-+) { 
ini si2e=video->sizc[0]*video->size(l]; 
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GeiFramc( video. frame); 

for<ch2nnel = 0;channel< (video- > iype= =M0N0?l:3):channel + + ) 
for(x = 0;x< video- > si2e[0];x+ +) 

for(y =0':y < video- > si2e[ 1 ] ;y + + ) 

whole frame((x + video- >si2e{0]*y)*3 + channel] = itc(video- > data[channel][franie][Addre 
ss(video.chaiinel,x,y)] > > video- > precision); 

fwriie(whole_frame,l,3*size,fp); 

FrccFraine(video,fraine); 

} 

fclose(fip); 

XtFrcc( wholc_frame) ; 

} 

void VidcoHcxSave(w.closure,call_data) 

Widget w; 

caddrj closxire, call_daia; 

{ 

Video video; 

FILE *fjp, *fopenO: 

XawListRemmStruct *nanie=(XawLisiRcnmiSiruct •)call_data; 
char file_naine[STRLEN]; 
int frame, cbaimel, i; 

I>printf("VideoHexSavc %s\a' .name- > string); 

video = FindVidco(iiame- > string.global- > videos); 

if (video- > files[0] = = •\0') strcpy(video- > files.name- > string); 

sprintf(file_name,"%s%s/%s/%s%s\0".global->bome,IMAGE_DIR,video->paih,video- 
>nies.".h"); 
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fp = fopen(file_name . " w"); 

for(fraiDC=0:fmie < (video- > si2e[2] > 2?2:video- > size(2]);frame+ +) { 
int size = video- > size! 1 ] -video- > sizefO] ; 

GetFrame(video, frame); 
fprintf(^.*'cbar 

%s%d[%d] = {\n^I^e->st^mg[slrlen(Iume->sr^ing)-l]==•d'?"s^c^"dst^fr^IBe.l 
for(i=0;i<si2e;i++) 

fprinif(fp,"0x%02x,%c".(vidco- >dat2lO][frame][i] > > video- > precision) + 128.i%: 
19?'\n*:' '); 

fprintf(fp."\n};\n-); 
FrecFrame( video , frame) ; 

} 

fclosc(fp); 

} 

^define AB_WIDTH 1440 
^define AB_HHGHT 486 

void VideoAbckusSave(w.cIosurc.caJl_data) 

Widget w; 

caddrj closure, ca]I_data; 

{ 

AbekusCtrl ctrl=(AbekusCirl)closure; 
FILE *fi?, *fopenO: 
char filc_namc(STRLENl, *data=(cbar 
•)MALL0C(AB_W1DTH*AB_HEIGHD, zcro=itc(0); 
int frame, channel, i, x, y, length=0; 
Video vidsI4]; 
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DpriDtf("VideoAbekusSave\n''); 
for(i=0;i<4;i + +) 

if (Ctrl- > nameslij ! = NULL) { 

vid5[i] =FindVideo(ctrl- > names[i], global- > videos); 
length = length > vidsli]- > si2e[2]?length:vidsfi]- > si2e[2]; 
) else vids[i] = NULL; 
for(frame=0;frame<length;frame-t-+) { 

sprintf(rile_name, " %d.yuv\0" .frame -f 1); 

fp=fopen(rile_nanic,'w"); 

for{i = 0;i < 4 ;i -I- -I- ) GetFrame(vids[i] .frame); 

for(y = 0;y < AB_HHGHT;y + +) 

for(x=0;x<AB_WIDTH;x+4-) { 
ini 

i= (X < AB_WIDTH/2?0: l)-»-(y < AB_HEIGHT/2?0:2), 

Y =y < AB_HDGHT/2?y :y-AB_HEIGHT/2, 
X = (X < AB_WIDTH/2?x:x-AB_WIDTH/2)/2, 
chaiinel=((x&l)= = 1)?0:((X&1)«= =0)?1:2; 

if (vids[i]- > type == MONO && channel! = 0 1 1 
X> =vids[i]->si2£[0] 1 1 Y> =vids[i]->si2e[l]) data(x+y*AB_WIDTH]=zero; 
else 

daia(x +y*AB_WIDTH] = iic(vids[i]- > data[channel]Iframe][Address(vids[i],channel.X.Y)] 
> >vids[i]-> precision); 

} 

for(i=0;i<4;i++) { 

FreeFrame(vids[i] .frame); 
EraseFramc(vids[i] .frame); 

} 

fwriie(data. 1 , AB_WIDTH*AB_HElGHT.fip): 
fclose(fp); 
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void VideoDrop{w, closure, call_daia) 



Widget 



caddT_t 



closure, call_daia; 



Video •videos =&global-> videos, video; 
XawListReturnStruct •name = (XawLisiRetumSmict *)call_data; 
int channel, frame; 

DpriDtf("VidcoDrop %s\n",name-> string); 
video = FindVideo(name- > string .global- > videos); 

while (*'videos!= video && *videos!=NULL) videos =&((*videos)-> next); 
if (• videos != NULL) { 



•videos = (•videos)- > next; 

for(channel = 0;channel < (video- > type = = M0N0?1 :3);channel + +) 
if (video- > data [channel] != NULL) { 

for(franie ='Q;fTame < video- > sizeP] ;fTame ++) 
if (video- >data[channel][frame]!= NULL) 



XiFrce(video); 

} 

} 

/* Obsolete 

void VideoDiff(w,closure,call_data) 

Widget w; 

caddrj closure, caJl_data; 



XiFree(video- > daia[channel] [frame]); 



XtFree(video- > data [channel]); 



} 
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XawLisLRcmrnStnjci *iiainc = (XawLisiRetuniStruct •■)call data; 

Video src = FiDdVideo(nanie-> string ,g}obaJ-> videos), dst=CopyHeader(src); 

int frame, channel, i; 

prmtf("VideoDiff %s\n",name-> string); 
sprintf(dst- > name, " %s.diAO",src- > naxne); 
for(frame = 0;frame < src- > si2e[2] ;fTame + + ) { 

GetFrame(src , frame); 

NewFramc(dst,framc); 

for(channel =0;channel < (video- > type = =M0N0?1 :3);chamiel+ +) 
for(i =0;i < src- > si2e[l]*src- > sizc[0];i-l- -i-) 

dst- > data[chaime]][frame][i] ■= src- > data[channel][fTame][i])-(framc= =0?0:src- > data[ch 
annel][fTame-l][i]); 

SaveFrame(dst, frame); 

FreeFrame(dst,fiamc); 

if (frame >0) FreeFrame(src,frame-l); 

} 

FreeFrame(dst,src- > si2er2]-l); 
dst- > next = global- > videos: 
global- > videos = dst; 

} 

*/ 

void VideoCleaji(w,closiire,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video *videos=&global-> videos, video; 
int channel, frame; 
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Dprinif ( " VideoClean\n " ) ; 
whileCvideos! = NULL) { 
video = 'videos; 

if (False = =VideoHasFranie(video,global-> frames)) { 
Dprintf(" Erasing video: %s\n",vidco->namc); 



for(channeI =0;cliaBnel < (video- > type = = M0N0?l:3);channel + +) 
if (video- >dauIchajineI]! = hnJLL) { 

for(frame=0;fraine < video- > si2e(2];frame+ -»-) 
if (video- > data(channel] [frame] ! = NULL) 

XtFree(video- > dataf channel] [frame]); 

XtFree(video- > data [channel]); 

} 

•videos = video- > next; 
XtFree(video); 
} else videos =&(*vidcos)-> next; 




typedef struct { 

Frame frame; 

Xtlntervalld id; 

unsigned long interval; 

long msec, shown, average; 

Pixmap 'movie; 

int fno, old_£no; 
} Movie ArgRcc, *MovieArg; 



void Projector(client_data,id) 

XlPointer clieni_data; 
XUmcrvalld *id; 
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{ 

MovieArg movieArg = (MovieArg)client_da[a; 

Display 'dpy = XiDisplay(global- > loplevcl); 

struct timeval tp; 

struct timezone tzp; 

long ncw_mscc; 

int scni=XDefaultScreen(dpy); 

movieArg- > id = XtAppAddTimeOui(globaI- > app^con.movieArg- > interval.Projector.mo 
vieArg); 

gettimeofday(&tp,&tzp); 

Dcw_inscc=tp.tv_sec*1000+tp.tv_uscc/1000; 

if (movieArg- > msec! =0) { 

movieArg- > average = (movieArg- > average*movieArg- > shown-l-new_msec-movicArg- 

> rasec)/(movieArg- > shown + 1); 

movieArg- > shown+ + ; 

} 

movieArg- > msec = new_msec; 

XCopyArea(dpy, movieArg- > movie [movieArg- > ftio],XtWindow(movieArg- > frame- > i 
mage_widget),DefauJtGC(dpy,scra),0.0,movieArg- > frame- > video- > sizclO],movieArg- 

> frame- > video- > si2e[l],0,0); 

movieArg- > fno = movieArg- > fho = = movieArg- > frame- > video- > sizeI2]- 1 ?0:movieAr 

g->ftio+l; 

} 

void StopMovie(w,closurc,call_dau) 
Widget w; 
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caddr l closure, call_data; 
{ 

MovieArg inovieArg = (MovieArg)closure; 
Display *dpy = XtDisplay(global- > toplevel); 
int i; 
Arg args(l]; 

XtRemoveTimcOut(movicArg- > id); 

Dpriiitf(" Movie showed %d frames at an average of %f 
fps\n",movieArg-> shown, 1000.0/(noai)movieArg-> average); 

for(i =0;i < movieArg- > frame- > video- > si2e[2];i + +) 
XFreePixmap(dpy,movicArg- > movie[il); 

XtFrcc(movieArg- > movie); 

XtSetArg(argsIO] ,XtNbimiap,UpdatcImage(movicArg- > frame)); 
XtSeiValues(movicArg- > frame- > image_widgei.args,ONE); 
XSy nchroni2e(dpy , False); 

} 

^define MOVIEJCONS 1 

void Movie(w,closuie,caU_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video video= ((Framc)closurc)- > video; 

MovieAig movieArg = (Movie Arg)MALLOC(si2£of(MovieArgRec)) ; 
Widget shell = ShellWidgei("movie",XtParent(w),SW_over,NULL,NULL), 
form = FonnatWidget("movie_fonn " , shell), 
widgets[MOVIEJCONS]; 
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Display •dpy = XLDisplay(global-> toplevel); 
FonnJtem iieins(] = { 

{ •'movie_siop " . "stop" ,O.O.FW_icon,NULL} . 

}; 

XiCallbackRec callbacksD = { 

{ StopMovie . (caddrj)movieArg} , 
{Frec,(caddr_t)movieArg}, 
{ Destroy , (caddr_t)shcll } , 
{NULL,NULL}. 

}; 

int i: 

XGCValues values; 
GC gc; 

Dprintf("Movic\n"); 

FillFonn(f onn ,M0 VIEJCONS , items ,widgets,callbacks) ; 
XtPopup(shclI,XtGrabExclusive); 

values . foreground = 255 ; 
valucs.backgrouiid=0; 

gc=XtG€iGC(XiPareni(w).GCForcground | GCBackgTOund,&valucs); 
movie Arg- > frame = (Framc)closure; 

movieArg- > movie = (Pixmap •)MALLOC(video- > si2e[2]*si2eof(Pixmap)); 
movieArg- > old_fno «= movieArg- > frame- > frame; 
for(i=0;i<video->si2c[2];i++) { 
char fno[STRLEN]; 

spriiitf(fno," %03d\0",i+video- > start); 
movieArg- > frame- > frame = i; 
GetFrame(vidco,i); 

movieArg- > movie[i] =UpdateImage(movieArg-> frame); 
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XDrawlmagcStriiig(dpy,inovieArg- >movie[i].gc, video- >size[0]-50.10.fno,3); 

XCopyArsa(dpy,movieArg- > movieIi],XtWindow(movieAjg- > frame- > image_widgeO.D 
efaultGC(dpy.O).0.0,video- > size(0],video- > size[l],0,0); 

movicArg-> frame- > frame =movieArg- > old_fno; 

FreeFrame(video,i); 

} 

XtDestroyGC(gc); 

movie Arg- > fno =0; 

movie Arg- > msec =0; 

movicArg-> shown -0; 

movicAxg- > average =0; 

raovicArg- > interval = 1000/ video- > rate; 

movieArg- > id = XiAppAddTimeOui(globaJ- > app_con.movieArg- > intcrval,Projecior,mo 
vieArg); 

XSynchrom2c(dpy , True); 

} 

void Compare(w,closure.cail_daia) 

Widget w; 

caddrj closure. call_data; 

{ 

XawListRetumSmict »name = (XawListRenimStruct •)call_data; 
Video sTC=(Video)closure, dst=FindVideo(name->string,globa]-> videos); 
int channcls=sn:->typc==MONO 1 1 dst- > type MONO? 1:3, channel, 
values =0, x, y, 

frames = src- > si2e(2] > dst- > si2e[2]?dst- > si2e[2]:src- > si2e(2] , 

frame; 
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double mse; 

Message msg = NewMessage(NULL.400); 
XtCallbackRec caJIbacksI] = { 

{CloseMessage,(caddr_t)msg}, {NULL.NULL} , 

}; 

msg->rows=frames>5?10:2»fraincs; msg->cols=40; 
if (global- > batch = = NULL) 
MessageWindow(FmdWidgel("frin_compare",w),msg,"Compare",Tnie.ca]lbacks); 

for(frame = 0;frame<fraines;fraine++) { 

Boolean srq)= src- > precision > dst- > precision; 
int err_sqr=0, 

precision =srcp?src- > precision-dst- > precision:dst-> precision-src- > precision; 

Mprinif(msg, "Compare: %s%03d and 
%s%03d\n" ,src- > namcsre- > stan+ frame, dst- > namcdst- > start+frame); 
GetFrame(sre.firame); 
GctFrame(dst,frainc); 

for(channel=0;channel<channels;channel++) { 

values + = Size(src- > si2e[l] > dst- > size! l]?dst:src,channel, l)*Si2e(src- > si2e[0] > dst- > s 
i2e[0]?dst:src,channel,0); 

for(y =0;y < Size(sTc- > si2e(l] > dst- > si2c[ll?dst:src,channel, l);y + +) 

for(x =0;x < Si2e(src- > sizelO] > dst- > si2eI01?dst:src,channel,0);x+ +) { 
int 

err = (src- > data[channcl]IfTame]Ix + Size(src,cliannel,0)*yl < < (srcp?0:precision))-(dst-> 
data{channcl][frame][x-HSi2£(dst,channcl.0)*y] < < (srcp?precision:0)); 

eir_sqr+=erT*err; 

} 



Copied from 10340491 on 04/01/2005 



wo M/2338S 



PCT/GB94/006r7 



- 390 - 

) 

FrceFranie(src .frame); 

Frc«Frame(dsi. frame); 

mse = (double)err_sqr/(double)( values); 

Mprinif(rasg, "Error %d MSE %f PSNR 
%An",erT_sqr.mse,lO*loglO(pow((pow(2.0.(double)(8-l-(srcp?src->precision:dst-> precis 
ion)))-l),2.0)/mse)); 

Mnush(msg); 

} 

} 

void BatchComparc(w.ciosurc.can_daia) 

Widget w; 

caddr t closure, call_daia; 

{ 

String namc*(String)closure; 

closure =(caddr_i)FindVidco(name,global- > videos); 
CompaTe(w,closure,call_data); 

} 
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V./include/xwavch" 
<Xll/Xresource.h> 
<X11/Intrinsic.h> 
<X11/Quarlcs.h> 

exien) Palctie ReOrderPaJencs(); 
extern void NameBunonO; 
extern void ImagcNotifyO; 
extern void ParseQ: 

#defme IconPath "bitmaps" 

#dcfme IconFUe "xwavc. icons" 

jCdefme CompressPath 

ji'defme ConoprcssExt ".compress" 

#define PalenePath "." 

#defme PalencExi ".pal" 

Global global; 

String ChannelNamel3][4]={ 

{ -GreyScale" ,NULL,NULL,NXJLL} , 
{•Red ", "Green". "Blue ", "Color"}. 

{"Y-Lumimance","U-Chrome ","V-Chrome "."Color "}, 

}; 

#definc XtNdcbug "debug" 
#define XiNbatch "batch" 



^include 
/Cindude 
^include 
#include 
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Static XiResource resourccsn - { 

{XiNdcbug, XtCBoolcan, XiRBoolean. si2eof(Boolean), 
XiOffset(GIobal,debug). XtRSiring. "false"}. 
{XiNbatch, XiCFile. XiRSiring, si2eof(Siring). 
XtOffset(GIobal.baich), XtRString, NULL}, 

}; 

static XrmOpiionDescRec optionsQ = { 

{ "-debug " . " *debug " .XnnopiionNoArg, " true' } , 
{ "-batch" . "'batch" .XrmopiionSepArg.NULL} , 

}; 

static Boolean CvtStringToPiAcl20; 
#if defmed(_STDC_J 

exiemalref XtConvenArgRec const colorConvcnArgs[2]; 
#else 

exiemalref XtConvenArgRec colorConvenArgs[2]; 
#endif 

static String fallback_resourccs[]={ 

"*copy_vidco*Toggic*translaiions: ^override \\n <BtnlDown> , <BtnlUp> : 
setO noiifyO". 

"•copy__video*copy •state: true", 

NULL. 

}: 

XtActionsRec actionTableD«={ 
{ "NameBunon" .NamcBunon} , 

}; 

main(argc,argv .envp) 
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int argc; 

char •argv[], *envp[]; 

{ 

void InitPixinapsO, IniiActionsQ, IniiMain(), IniiEnvQ, InitDitherQ, DispaichQ; 
GlobalRec globalrec: 

global =&globalrec; 
global- > videos = NULL; 
global- > frames = NULL; 
global- > points = NULL: 
IniiEnv(envp); 

global- > loplevel = XiAppIiiiiialize(&(global- > app_con), "xwave" ,opuons,XiNumber(optio 
ns),«S:aTgc,argv,fal]back_resourccs,NULL,ZERO); 

XtGeiApplicationResourcesfglobal- > toplevel,global, resources, XtNumber(resources),NUL 
L,ZERO); 

if (global- > batch! = NULL) { 

Parsc(BATCH_DIR,global- > batch,BATCH_EXT); 

if (global- >baichjist! = NULL) Dispaich(global- > baichjist); 

} 

if (globaJ- > batch = = NULL) { 

XtAppAddActions(global- > app_con,actionTable,XtNumbcr(actionTablc)); 

XtSetTypeCoDvener(XiRString,XtRPixel,CviStringToPixel2,coloiCoDvertArgs,XtNiimber 
(coloiConvenArgs),XtCacheByDisplay,NULL); 

if (global- > debug) Dprintf("Xwave Debugging Output\n"): 

InitVisualO: 

InitDitherQ; 

InitPixniaps(IconPatb,IconFile); 
Parse(PaletiePath, "xwave",PaletteExt); 
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global- > palenes = ReOrderPaJenes(global- > paienes.globaJ- > palenes); 

ljiiiAciioiis(global- > app_con); 

IniiMainQ; 

XiReaJi2eWidget(gJobal--> toplevel); 
XiAppMainLoop(global- > app_con); 

} 

} 

void Inii£nv(envp) 
char *envp[]; 
{ 

String home = NULL, xwave = NULL; 

I>printf("Iniualizing cnviromcntXn"); 
while(»envp! = NULL) { 

if(!stmcmp(*cnvp,"H0ME=",5)) homc = (*cnvp)+5; 

if(!stmcinp(*envp,'XWAVE=",6)) xwave = (*cnvp)+6; 

envp+ + ; 

} 

if (xwave! = NULL) sprintf(globaJ->home,"%s/",xwave); 
else sprintf(global- > home," %s/xwavc/". home); 

} 

#defme HHGHT 14 
void InitPixmaps(path,nie) 
char •file, *palh; 

{ 
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FILE -fp, -fopenO; 
Icon icons; 
char padflOO]; 

Display "dpy = XiDisplay(|lobaJ- > loplevel); 

int i. j. sink, scni = XDefaultScrccn(dpy). depth = Display Planes(dpy.scm). 

bpl = (global- > levels*depth + 7)/8; 
char datalHEIGHT'bpl]; 
Xlmage 

*image=XCreat£linage(dpy, global- > visinfo- > visual,depih,ZPixinap,0,daia,global- > leve 
ls.HEIGHT,8,bpl); 



sprintf (pad , " % s % s/ % s\0 " . global- > home , path, file) ; 
if (NULL == (fp = fopen(pad,"r"))) { 

Eprinrf("Can't open file %s\ii",pad); 

cxitO: 

} 

fscaiif(fp, " %d\n" ,&globa]- > no_icoiis); 

global- > icons = (Icon)MALLOC((l +global- > noJcons)*si2eofaconRec)); 
for(i=0;i<global->no_icons;i-n-) { 

global- > icons[i].namc=(String)MALLOC(100); 

fscanf(fp, " %s\n",global- > iconsli] .name); 

sprintf (pad," %s%s/%s\0".global- > homcpath.global- > iconsfil.name): 
XRcadBitmapFDeC 

XiDisplay(global- > toplevel), 

XDefaultRootWindo w(dpy) , 

pad, 

&global- > icons[i] .width, 
^global- > icons[i]. height, 
&global- > icons[i] .pixxnap , 
&sink, 
&sink 

); 
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} 

global- > icomlglobal- > no_icons].name=(Sthng)MALLOC(100); 
strcpy(global-> icons(global-> no_icons). name, "colors"); 
global- > icons(gIobal- > no_icons]. width = global- > levels; 
global- > iconslglobal- > no_icons]. he ight = HEIGHT; 
for(i = 0;i < global- > levcls;i -H ) 

for(j=0;j < HeGHT;j-f- +) XPuiPixel(image,i,j.i); 

global- > icoiis[global- > no_icons] .pixmap = XCreaiePixmap(dpy ,XDefauliRootWindow(dp 
y),global- > levels,HEIGHT,depth); 

XPudmage(dpy .global- > icons[global- > no_icons].pixmap,DefaultGC(dpy,scrn),image,0.0 
.O.O.gJobal- > Icvcls.HHGHT); 

globaJ- > no_icons + + ; 

XtFrce(iinage); 

fclosc(fp); 

} 

^define donc(type, value) \ 
{\ 

if (toVal- > addr ! = NULL) { \ 
if (toVal- > size < si2eof(typc)) { \ 

toVal->size = si2eof(iype); \ 

return False; \ 

)\ 

•(typc*)(toVal->addr) = (value); \ 

} ^ 

else { \ 
static type static_val; \ 
sutic^val = (value); \ 
toVal->addr = (XtPoiiiter)&staiic_val; \ 

} N 
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toVal->size = si2eof(type); \ 
return True; \ 

} 

rfTdefmc dist(colora.colorb) \ 

abs(colora.red-colorb. red) •fabs(colora.gTeen-colorb.green) + abs(colora.blue-colorb. blue) 

static Boolean CvtStringToPixel2(dpy, args, num_args, fromVal, toVal, closurc_ret) 
Display* dpy: 
XrmValuePtr args; 
Cardinal *niinj_args; 
XrmValucPtr fromVal; 
XrmValuePtr toVal; 
XiPoinier *closure_ret; 



String 


str = (String)fromVal->addr, 


XColor 


screenColor; 


XColor 


exactColor; 


Screen 


•screen; 


Colormap 


colormap; 


Status 


status; 


String 


paTams[l]; 


Cardinal 


numjarams = 1 ; 



Dprinif("Convcrt string to pixel 2\n"); 
if (*num_args ! = 2) 

XiAppErrorMsg(XtDisplayToApplicationConiext(dpy), "wrongParamctcrs" . 
-cvtStringToPixel", 

"XtTooIkitEiTor". 
"String to pixel conversion needs screen and colormap arguments", 
(String *)NULL, (Cardinal •)NULL); 
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screen = -((Screen args[0].addr); 
colonnap = '((Coionnap ") args(l].addr); 

if (!sircmp(sir.XiDefaultBackground)) { 
»closurc_ret = False; 
done(Pixel.WhitePixelOfScreen(scrccn)); 

} 

if (!sm:mp(str,XtDefaultForeground)) { 
•closu«_ret = False; 
done(Pixel,BlackPixelOfScreen(screer)); 

} 

parajns[0]=str; 

if (0= = XPar5eColor(DisplayOfScreen(screen),colorraap,str,&screenColor)) { 

XiAppWamiiigM$g(XtDisplayToApplicauonConiext(dpy), "noColormap", 
"cvtStiingToPixel", 

"XtToolkitError", "Cannot parse color: \"%s\"", 
params,&num_parains); 

retuni False; 
}else{ 

if (0= =XAUocColor(Disp]ayOfScreen(screen),colonnap,&screenColor)) { 
int i. delta, closest^O; 
XColor colors[global-> levels]; 

for(i=0;i<global-> levels;i+ +) colors[i]. pixel =i; 

XQucTyColcrs(DisplayOfScrcen(screen),colonnap.colors,global- > levels); 
delta =dist(screenColor,colors[0]): 
for(i = 1 ;i < global- > levels;! + +) { 

int delta_new=dist(screenColor,colors[i]); 

if (delta_new< delta) { 
delu= delta new; 
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closest =i: 

} 

} 

DprintfC Closest color to %s is pixel %d red %d green 7od blue 
%d\n".str.colors(closcst].pixcl,color5(closest).red,colors[closest].green,colors[closest].blue 

); 

•closure_ret = (char*)Ti^e; 
done(Pixel, closest); 
}clse{ 

*closure_rct = (char*)True; 
done(Pixcl, screenColor.pixel); 

} 

} 



void Dispatcb(list) 
Batch list: 
• { 

if (list- > next! = NULL) Dispatch(list-> next); 
(list- > proc)(NULL.list- > closure,list- > call_data); 
if (list- > closure! =NULL) XtFree(list- > closure); 
if (list- > call__data! = NULL) XtFree(list- > call_data); 
XtFice(list); 



void BatchCtrl(w,closure,caIl_data) 

Widget w; 

caddr_t closure, call_data; 
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{ 

Dprintf("BaichCtrl\n"); 
global- > batch = {String)closure; 

} 

void UmxShell(w,closure.call_daia) 

Widget w; 

caddr_t closure, call_data; 

{ 

if (-1 = =Fork((char ■'•)closurc)) Eprii«f( "Unable to fork\n"); 

} 

void InitDithcrO 
{ 

int i, j, k, 1. 

din4l4]I4] = { 

0. 8, 2, 10, 
12, 4, 14, 6, 
3, 11, 1, 9. 
15. 7. 13, 5 

}: 

for(i=0;i<4;i++) 

for(j=0;j<4u + +) 

for(k=0;k<4;k++) 

for(l=0;l<4;l++) 

global- >dither[4*k+i][4*l+j] = (dm4[i][j] < <4)+dm4lk][l]; 
} 
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typedef struct { 
Video video; 

char name[STRLEN], src_narae(STRLEN]; 
ini UVsamplc[2]; 
int mode; 

Widget radioGroup; 
} CopyCtrlRec, *CopyCtrl; 
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source/Gram.y 

%{ 

♦ Grammar for files: .elo 



*/ 

^include 


"../include/xwave.h" 


^include 


"Klics.h" 


^include 


'Transform. h" 


({'include 


"Copy.h" 


i^include 


"Video.b" 


exiem void 


VidcoLoadO; 


extern void 


VideoSaveO; 


extern void 


VideoDropO: 


extern void 


ImportKlicsO: 


extern void 


VidcoAbekusSavcO; 


extern void 


UnixShellO; 


extern void 


BatchCompCtrlO: 


extern void 


BatchTransCtrlO; 


extern void 


BatchCopyCirlO; 


extern void 


BatcbCompareO; 


extern void 


BatchCtrlO: 


extern CompCtri InitCompCtrlO: 


extern CopyCirl InitCopyCirlO; 


extern TransCtrl InitTransCtrlO; 


static char 


*ptr. 



void NewBatchO; 

%} . 
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%uiiion 
{ 



double fnum; 
ini Dum; 
char "ptr; 
Boolean bool; 



%token SIZE TRANSFORM TRANSFORM_NONE TRANSFORM^WAVE PATH 
%token nLE_PAL PALETTE RANGE UNE 

%tokcn FILE.VID TYPE FORMAT_MONO FORMAT.RGB FORMAT.YUV 
RATE DISK GAMMA PATH FILES START END LEN DIM HEADER OFFSETS 
NEGATIVE PRECISION 

%iokcn FILE_BAT LOAD SAVE SAVE_ABEKUS COMPARE DROP 

COMPRESS VIDEO_NAME STATS_NAME BIN_NAME 

%ioken SniX.MODE VIDEO.MODE AUTO_Q QUANT_CONST 

THRESH_CONST BASE_FACTOR DIAG_FACTOR CHROME_FACTOR 

%token DECISION DEC_MAX DEC JIGABS DEC_SIGSQR FEEDBACK 

FILTER FLT NONE FLT_EXP CMP_CONST SPACE LEFT_BRACE RIGHT_BRACE 

DIRECTION 

%ioken FPS BITRATE BUFFER XWAVE SHELL IMPORT.KUCS 
%ioken COPY DIRECT_COPY DDT LPF^WE LPF_ONLY RGB_YUV 
% token <nuin> NUMBER 
%token <ptr> STRING 
%tokcn <ftium> FNUMBER 
%iokcn <bool> BOOLEAN 

%type < num> number video^type decision filter 

%type <ptr> string 

%typc <ftium> fnumber 

%type <bool> boolean 



Copied from 10340491 on 04/01/2005 

r-i inr^-nTi rrr rijprT fDinP 9n 



wo 94/233S5 



PCr/GB94/00677 



wail 

I pal_id pal_desc 

j video id video_desc 

I bat_id bai_desc bat_end; 

pal_id : HLE.PAL { 

Dpriiitf("Gram: paletie file %s\n" .global- >parse_file); 

}; 

video_id : FE£_VID { 

Dprintf("Gram: video file %s\n",global->parse_file); 
global- > videos- > sian= 1 ; 
global- > videos- > si2e[2] = 1 ; 

}: 

bat_id : FILE_BAT { 

Dpriiitf("Gram: batch file %s\ii",global->parse_rilc); 

}; 



pal_desc 



I pal_dcsc palette LEFT_BRACE mappings RIGHT_BRACE; 



palette : PALETTE string { 

Palette pal = (Palene)MALLCX:(si2eof(PaletieRec)); 

Dpiintf("Gram: palette %s\n",$2); 
strcpy(pal- > name,$2); 
pal- > mappings = NULL; 
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pal- > next = global- > palencs; 
global- >pa]eaes=pal; 
global- > no_pals + + ; 



I mappings mapping: 

: RANGE number number LINE number number { 

Map map = (Map)MALLOC(si2eof(MapRec)); 

Dprintf("Gram: Range %d to %d m = %d c= %d\n".$2.$3.$5,$6); 

inap->sian=$2; 

map->rmisb=$3; 

map->m=$5; 

nMp->c=$6; 

map- > next - global- > palettes- > mappings; 
global- > palettts- > mappings = map; 



video_desc : video__defs { 

if (global- > videos- > si2e[0] = = 0 && 
global- > videos- > sizefl] = =0) { 

global- > videos- > si2e[0] = global- > videos- > cols; 
global- > videos- > size[l] = global- > videos- > rows; 

} 

}; 

video_defs 

I video_dcfs video_def; 
video def : PATH string { 
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DpcDifC Video path %s\n",$2); 
stTcpy(global- > videos- > path.S2); 

} 

I FILES string { 

Dprinif( "Frames stored in %s\n",S2); 
sn-cpy(globaJ- > videos- > riles,$2); 

} 

j TYPE video_type { 

String rypes[] = {"Mono","RGB"."YUV-); 

Dprintf("Video type: %s\n",types(32]); 
global- > videos- > type=(VidcoFonnai)$2; 

} 

I RATE number { 

Dprintf(" Video rate %d fips\n",$2); 
global- > videos- > rate = $2; 

} 

I DISK { 

Dprinrf("Frames on disk\n'); 
global- > videos- > disk = True; 

} 

i GAMMA { 

Dprintf("Gamma coiTcctcd\n*); 
global- > videos- > gamma = True; 

} 

I NEGATIVE { 

Dprintf("Negative video\n"); 
global- > videos- > negative >= True; 

} 

j TRANSFORM video_transfonn 
I START number { 

Dprintf("Video start %03d\n",$2); 
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global- > videos- > Stan = $2 ; 

) 

i END number { 

Dprintf(" Video end %03d\n",$2); 

global- > videos- > si2e[2] = S2-global- > videos- > sian -i- 1 ; 

} 

j LEN number { 

Dprintf(" Video frames %d\n",$2); 
global- > videos- > si2c(2] = $2; 

} 

I DIM number number { 

Dprintf( 'Video dimensions %d %d\n".$2,$3): 
global- > videos- > cols =$2; 
global- > videos- > rows = $3 ; 

} 

I HEADER number { 

Dpriiitf( "Video header size %d\n",$2); 
global- > videos- > offset = $2; 

} 

I OFFSETS number number { 

Dprintf( "Video offsets %d %d\n",$2,$3); 
global- > videos- > x_offset=$2; 
global- > videos- > y_offset = $3 ; 

} 

I SIZE number number { 

Dprintf(" Video size %d %d\n',$2,$3); 
global- > videos- > sizelO] =$2; 
global- > videos- > si2e[l] =$3 ; 

} 

I PRECISION number { 

DprinifC "Video precision %d bits\n",8-K$2); 
global- > videos- > precision = $2; 
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}: 

video_type : FORMAT_M0N0 { $$ = (mt)MONO; } 

I FORMAT_RGB { $$=(im)RGB; ) 

I FORMAT_yUV number number { $S = (ini)YUV; 
global- > videos- >UVsaniplc[0] = $2; global- > videos- >UVsaniple[l] = $3; }; 

video_uansfonn : TRANSFORM_NONE { 

global- > videos- > trans. rype=TRANS_^None; 

} 

I TRANSFORM_WAVE number number boolean { 
Dprintf( "Video wavelet tranformed %d %d 

%s\n".$2.S3,$47"True" : "False"); 

global- > videos- > trans, type =TRANS_Wave; 
global- > videos- > trans.wavelet.spacefO] =$2: 
global- > videos- > trans.wavelet.space[l] =$3; 
global- > videos- > trans . wa vclei.dini - $4 ; 

}: 



bat end 



I XWAVE{ 

Dprintf("Gram: XWAVE\n"); 
NcwBatch(BatchCtrl.(caddrj)NULL.NULL); 



: bat_cmds { 



Dprintf("Gram: End of batch filc\n"); 



I bat cmds bat_cmd; 
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bat_cmd : siinple_cnid 

I complex_cmd 



siinple_cmd : LOAD string { 

XawLisiRctumStnjct •list_renjni= (XawLisiRetumStnJct 
*)MALLOC(si2eof(XawListRetumSinjct)); 



Dprintf("Gram: LOAD %s\n",$2); 
list_return- > string = $2; 

NcwBaich(VideoLoad.NULL,(caddrj)list_renini); 

} 

I SAVE string { 

XawListRenmiStruct •list_rcnim=(XawLisiRemniStruct 
•)MALLOC(si2eof(XawListRetuniStruci)); 

Dprintf("Grain: SAVE %s\n",$2); 
list_retum- > string = $2; 

NewBaich(VideoSavc .NULL, (caddr_t)list_rctum); 

} 

I SAVE_ABEKUS sning string string siring { 
AbelcusCtrl 

Ctrl = (AbehisCtrl)MALLOC(sizcof(AbckusCtrlRcc)); 



Dprintf("Gram: SAVE_ABEKUS %s %s %s 

%s\n",$2,$3,$4,$5); 

strq)y(ctrl- > names[0] , J2); 
strq)y(ctrl- > nanQCs(l],$3); 
strcpy(ctrl- > names[2] ,$4); 
strq)y(ctrl- > names[3] ,$5); 
NewBatch(VldcoAbckusSave,(caddrj)ctrl,NULL); 

} 
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j COMPARE suing sirmg { 

XawLisiRetumSiruct *list_rerum = (XawListReajniSinici 
•)MALLOC(si2cof(XawLisLRenjmStnict)); 

DprintfCGram: COMPARE %s wiih %s\n",$2,S3); 
li5t_retuni- > string = $2 ; 

NewBatch(BatchCompare,(caddr_i)$3,(caddr_t)lisi_retuni); 

} 

I DROP srring { 

XawListReturnSiruct "■list_return = (XawLisiRerumSinict 
•)MALLOC(si2eofCXawLisiRctuniStruct)): 

Dprintf("Gram: DROP %s\n",$2); 
list_rttun)- > string = $2; 

NewBatch(VidcoDrop .NULL, {caddr_t)list_return) ; 

} 

I IMPORT_KUCS string { 

XawListRcnirnStrucl •list_retum=(XawLisiRctuniStnict 
•)MALLOC(sizeof(XawListRcnimStruct)): 



DprintfCGram: IMPORT_KLICS %s\n".$2): 
list_returo- > string = $2 ; 

NewBatch(lmponKlics,NULL,(caddr_t)list_remrn); 

} 

I SHELL string { 

char ••argv, *str=$2; 

int c, argc=l, Icn^strlcnCstr); 



DprinrfC Shell %s\n",str); 
for(c=0;c<len;c++) if (sir[c] = = * ') { 

strlc] = '\0'; 

argc+ + ; 
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} 

argv = (char — )MALLOC((argc + l)»si2eof(char •)); 
argc = 0; 

for(c = 0;c<len;c + = l +strlcn(str+c)) { 
argv[argc] = (char 
•)MALLOC((sulen{sir+c) + l)'si2eof(char)); 

strcpy (arg v( argc] ,50- + c) ; 
argc+ + ; 

} 

argv(argc] = NULL; 

NewBatch(UnixSbell,(caddrj)argv,NULL); 



complex_cmd : compress LEFT_BRACE coinp_args RIGHT_BRACE 

I transfcnn LEFT_BRACE trans_args RIGHT_BRACE 
I copy copy_arg; 

compress : COMPRESS siring { 

CompCtrl Ctrl = IiiitCompCtrl(S2) ; 

Dprintf("Gram: COMPRESS\n"); 
NewBaich(BatchCompCtrl,(caddrj)ctrl,NULL): 



transform : TRANSFORM string { 

TransCtrl cirl=ImtTransCtrl($2); 

Dprintf("Gram: TRANSFORMXn"); 
NcwBatch(BaichTransCtrI,(caddr_l)ctrl,NULL); 



copy : COPY string string { 
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CopyCirl ctrl = InitCopyCtrl(S2); 
DprinifCGram: Copy\n"); 
sircpy(ctrl- > name. $3); 

NewBatch(BaichCopyCtil.(caddr_i)ctrl.NULL); 



comp_args 



I coinp_args comp_arg: 



I trans_args trans_arg: 



copy arg : DIRECT_COPY number number { 

Dprinif("Gram: Direct Copy (sample %d %d)\n',S2.$3); 
((CopyCtrl)global- > batchjist- > closure)- > mode = 1 ; 

((CopyCirl)globa]- > batchjist- > closure)- > UVsamplcfO] =$2; 

{(CopyCtrl)global- > baich_list- > closure)- > UVsamplell] = $3; 
) 

I DIFF{ 

Dprinif("Gram: Differance Copy\n"); 
((CopyCtrl)global- > baich_list- > closure)- > mode =2; 

} 

I LPF_WIPE { 

Dprintf("Gram: LPF zcro\n"); 

((CopyCirl)global- > batchjist- > closure)- > mode = 3 ; 

} 

I LPF_ONLY { 

Dprinif("Grara: LPF only\n"); 

((CopyCirl)global- > batchjist- > closure)- > mode =4; 

} 



Copied from 10340491 on 04/01/2005 



wo M/21M5 PCI/GB94/00€77 
-413 - 

I RGB_YUV { 

Dprmtf("Gram: RGB/YUV\n"); 

((CopyCtrl)globa]- > baich_list- > closure)- > mcxlc=5; 

} 

I GAMMA { 

Dprintf("Gram: Gamma conven\n"); 
((CopyCirl)global-> batchjist- > closure)- > mode =6; 

}; 

comp_arg : V1DE0_NAME string { 

Dprmtf("Gram: Compress name %s\n",$2); 

strcpy(((CompCirl)globaJ-> batchjist- > closure)- > name,$2); 
} 

I STATS_NAME string { 

Dprincf("Gram: Stats name %s\n",$2); 

strcpy(((CompCu-l)global- > batchjist- > closure)- > stats_name,$2); 

((CompCirl)global- > batchjist- > closure> > stats_switch=True; 
} 

I BIN_NAME string { 

Dprintf("Grajn: Bin name %s\n",$2); 

strcpy(((CompCtrl)global- > batchjist- > closure)- > bin_name,$2); 

((CompCtrl)global- > batch_list- > closure)- > bin__switch= True; 
} 

I ST[LL_MODE { 

Dprintf("Gram: Siill\n"); 

((CompCtrl)global- > batchjist- > closure)- > siillvid=True; 

} 
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I V1DE0_M0DE { 

DprinifCGram: Video\n"); 

((CompCt:l)global- > baich_list- > closure)- > siillvid = False: 

} 

I AUTO_Q bcwlean { 

Dprintf("Gram: Auto_q %s\n",$2?'True": 'False"); 
((CompCtri)giobal- > batch_lisi- > closure)- > auto_q = $2; 

} 

I QUANT_CONST fnumber { 

DprintfCGram: Quant const %An',S2); 

({CompCuDglobal- > baichjist- > closure)- > quant_consi =$2; 
} 

I THRESH_CONST fnumber { 

DprintfCGram: Thresh const %rai",$2); 

((CoinpCirl)global- > batchjist- > closure)- > thresh_const=$2; 
} 

I BASE_FACTOR number fnumber { " 

DprintfCGram: Base factor oct %d= %An",$2.$3); 

{{CompCtrl)global- > batchjist- > closure)- > base_fanors[$2] =$3; 
} 

I DIAG_FACTOR fnumber { 

DprintfCGram: Diag factor %An",$2); 

((CompCtil)global- > batch_lisi- > closure)- > diag__factor = $2; 

} 

I CHROME_FACTOR fnumber { 

Dprintf("Gram: Chrome factoi-^An",$2); 

((CorapCu'])global-> batchjist- > closure)- > chronie_factor=$2; 
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I DECISION decision { 

DprintfCGram: Decision changed\n"); 
((CompCirl)global- > batchjist- > closure)- > decide = $2; 

} 

I FEEDBACK number { 

((CompCirOglobal- > baichjisi- > closure)- > feedback =$2; 
((CompCirl)global- > baich_list- > closure)- > auio_q = True; 

} 

I HLTER filter { 

String fi]ierst2] = {"Nonc","Exp"}; 
DprintfCGram: Filter %s\n",rilters[$2]); 
((CompCtrl)global- > batchjist- > closure)- > filter =$2; 

} 

I CMP_CONST foumber { 

DprintfCGram: Comparison %An",$2); 
((CompCtrl)globa]- > batch_list- > closure)- > cmp_const= $2; 

} 

I FPS fnumber { 

DprintfCGram: Frame Rate %f\n",$2); 
((CompCtrl)global- > batchjist- > closure)- > fjps «= $2; 

} 

I BITRATE number { 

Dprintf("Gram: %dx641c/s\n",$2); 

((CompCtrl)global- > batch_list- > closure)- > bitrate = $2; 

} 

I BUFFER { 

Dprintf("Gram: Buffer on\n'); 

((CompCtrJ)global- > batchjist- > closure)- > buf_switch=True; 

}; 

decision : DEC^MAX{ $$ = 0; } 
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I DEC_SIGABS { $$ = 1: } 
i DECJIGSQR { $$ = 2; }: 

filter : FLT_NONE { $$ = 0; } 

I FLT_EXP { $$ = 1, }; 

traiis_2rg : VIDEO_NAME string { 

Dprinrf("Gram: Transform name %s\n",$2); 

sircpy(((Tr^Cirl)global- > baich_Iisi- > closure)- > namc,S2); 
} 

j DIRECTION boolean { 

Dprintf("Gram: Direction %s\n",$2? "True": "False"); 
((TransCtil)global- > batcbjist- > closure)- > dim =$2; 

) 

I SPACE number number { 

Dprinif("Gram: Space %d %d\n",$2,$3); 
((TransCtrl)global- > batchjist- > closure)- > space[0) =$2; 
((TransCtrl)global- > baich_list- > closure)- > space[l] =$3 ; 

} 

j PREaSION number { 

Dprintf("Gram: Precision %d biis\n",8+$2); 
((TransCtrl)global- > baichjist- > closure)- > precision =$2; 

}; 

boolean : BOOLEAN { $$ = $1; } ; 

string : STRING { 

pir - (char *)malloc(strlen($l)+l); 
strcpy(ptr,l+$l); 
ptr[strlen(ptr)-l] = '\0'; 
J$ = pir; 
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f number : FNUMBER { $$ = $1; }; 
number : NUMBER { $$ = $1; }; 

%% 

yyerTor(s) cbai *s; { 

EprinrfCGram: error %s\n",s); 
exii(3); 

} 

void NcwBaich(proc,closuTe,call__data) 
Proc proc; 

caddr_t closure, call_data; 
{ 

Batch bat=(Batch)MALLOC(sizeof(BatchRec)); 

bat- > proc = proc; 
bat- > closure = closure; 
bat- > call_data =call_data; 
bat- > next = global- > batch_list; 
global- > batchjist=bat; 

} 
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source/Klics.h 



/• Block size - no not change •/ 
^define BLOCK 2 

lypedef int Block[BLOCK][BL0CK]; /* smaJl block •/ 
/• tokens •/ 

^define TOKENS 15 

#define ZERO_STILL 0 
#defme NON_ZERO_STILL 1 
#defme BLOCK_SAME 2 
#dcfine ZERO_VID 3 
#dcfinc BLOCK_CHANGE 4 
#dcfinc LOCAL_ZERO 5 
jCdefmc LOCAL_NON_ZERO 6 
^define GHANNEL_ZERO 7 
^define CHANNEL_NON_ZERO 8 
#define OCT_ZERO 9 
Mcfme OCT^NON^ZERO 10 
#define LPF_ZERO 11 
#defmc LPF_NON_ZERO 12 
^define LPF_LOC_ZERO 13 
#defme LPF_LOC_NON_ZERO 14 

static int token^bits [TOKENS] 

={1.1.1.2,2,1.1,1.1.1.1,1,1.1.1}: 

static unsigned char token_codes[TOKENS] = {0,1.0,1.3.0,l,0,1.0,1.0.1.0.1}; 
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/• decision algorithms */ 
^define MAXIMUM 0 
^define SIGABS 1 
#defme SIGSQR 2 

/* compression modes */ 
/^define STILL 0 
#define SEND 1 
#defme VOID 2 
#defme STOP 3 

/* LookAhead hisiograin */ 
#defme HISTO 400 
^define HISTO_DELTA 20.0 
^define HISTO_BITS 9 

^include "../include/Bits.h" 

typedef soruct { 
Video src, dst; 

Boolean siillvid, siats_switch, bin_switch, auto_q, buf_switch; 
double quant const, tbresb^const, cmp^const, fips, 

base_factorsl51, diag_factor, chrome_factor; 
int bitrate, feedback, decide, filter; 

char name[STRLEN], stats_name(STRLEN], bin_name[STRLEN], 
src_nanie[STRLEN] ; 

Bits bfjp: 
} CompCtrlRec, *CompCtri; 

typedef struct { 

Boolean stillvid, auio_q, buf_switch; 

double quant_const, thresh_coDSt, cmp_const, fps. 
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basc_factors[5], diag_facior. chTomc_factor; 

int decide; 
VidcoFormai type; 
Boolean duk, gamma; 
int rate, stan, size(3), UVsample[2]; 
VideoTrans trans; 
int precision; 
} KJicsHeaderRcc, •KJicsHeader; 
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source/KL'csSA.h 



^include <sidio.h> 
^include "Bits.h" 

^define neg if (bool, value) ((bool)?-( value): (value)) 
extern Bits bopcnQ; 

extern void bcloseO. breadO, bwriteQ, bflushQ; 

/* Stand Alone definitions to replace VidcoRec & CompCtri assumes: 

* video- > type == YUV; 

* video- >UVsampleD = { 1,1); 

* video- >trans.wavelet.spaceD = {3,2}; 

* Ctrl- > bin_switch == True; 
•/ 

#define SA_WIDTH 352 
#dcfinc SA_HHGHT 288 
#defme SA_PRECISION 2 

static double base_facton[5] = {1.0,0.32,0.16,0.16,0.16}; 
#define diagjactor 1.4142136 
#defihe chronie_fiactor 2.0 
#define thiesb_const 0.6 
#define cinp_const 0.9 

/* Block size - no not change */ 
#denne BLOCK 2 

typedef int BlockfBLOCK] [BLOCK]; /* small block */ 
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/• tokens */ 

^define TOKENS 15 

^define ZERO_STILL 0 
^define N0N_ZERO_STILL 1 
^define BLOCK_SAME 2 
^define ZERO_VID 3 
^define BLOCK_CHANGE 4 
#define L0CAL_2ER0 5 
#defme L0CAL_NON_ZER0 6 
#defmc CHANNEL_ZERO 7 
^define CHANNEL_NON_ZERO 8 
#defme OCT_ZERO 9 
#dcfme OCT_NON_ZERO 10 
Mefine LPF_ZERO 11 
#defme LPF_NON_ZERO 12 
Mefine LPF_LOC_ZERO 13 
#defme LPF_LCX:_NON_ZERO 14 

static int tokcn^b its [TOKENS] 

={1,1,1,2,2.1,1,1,1.1,1,1,1.1.1}; 

static unsigned char tokcn_codcs[TOKENS] = {0,l,0,1.3.0,l,0.1.0,l,0.1,0.1}; 

/• decision algorithms •/ 
#dcfmc MAXIMUM 0 
#dcfme SIGABS 1 
^define SIGSQR 2 

/* compression modes •/ 
^define STILL 0 
^define SEND 1 
#defme VOID 2 
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yCdcfinc STOP 3 

/• LookAhead histogram •/ 
#defme HJSTO 400 
#defmc H]STO_DELTA 20.0 
^define HISTO_BITS 9 
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source/Lex.l 



%{ 
/• 

* Lex driver for input files: .pal .vid .bal 



^include "../include/xwavch" 

/{'include "../include/Gram.h" 

extern int ParselnputO; 

#imdef unput 

#undef input 

#undef output 

/j^indcf feof 

/^define uiiput(c) 

^define inputO 

#dcfine output(c) 

#denne feofQ 

%} 

number -?[0-9]+ 

fnumber -?I0-9]+"."[0-9]+ 
string \-(r"]I\\.rN' 

%staTt WAIT MAP VIDEO BATCH BATCH_TRANS BATCH_COMP 

%a2000 

%p4000 

%e 2000 



ungetc(c, global- > parse_fp) 

ParseInput(global- > parse_fp) 
puichar(c) 
(1) 
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"/•" { char c-'\0'; 



whiJc(c! = V) { 

while (c! = '*') c = inputO; 
while (c= = '**) c=inpui(); 

} 



\.pal { BEGIN MAP; DprintfCLex: Reading palette rile\n"); reium(FILE_PAL); } 
\.vid { BEGIN VIDEO; Dprintf("Lex: Reading video file\n"); retum(FILE_VlD); } 
\.bat { BEGIN BATCH; DprintfCLex: Reading batch file\n"); retum(FIlJE_BAT); } 

{number} { (void)sscanf(yytcxt, "%d", &yylval.niun); rctum(NUMBER); } 

{string} { yyival.ptr = (char *)yyiexi; rcniin(STRING); } 

{fnumber} { (void)sscanf(yytext, "%ir, &yylval.ftium); renirn(FNUMBER); } 



< MAP > Palette { rcnini(PALETTE); } 



<MAP>\{ 
<MAP>\} 
<MAP>Rangc 
<MAP>Line 



{ renjm(LEFT_BRACE); } 
{ retum(RIGHT_BRACE); } 
{ retum(RANGE); } 
{ retumdJNE); } 



< VIDEO > Type 

< VIDEO > MONO 

< VIDEO > RGB 
<VIDEO>YUV 

< VIDEO Rate 

< VIDEO > Disk 



{ retumCTYPE); } 

{ renmi(FORMAT_MONO); ) 

{ reniin(FORMAT_RGB); } 

{ renim(FORMAT_YUV); } 

{ rcmra(RATE); } 

{ rttum(DISK); } 



< VIDEO > Gamma { remm(GAMMA); } 

< VIDEO > Negative { renjm(NEGATIVE); } 
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< VIDEO > Path { rerum(PATH); } 

< VIDEO Files { re!um(FlLES); } 

< VIDEO Transform { retuni(TRANSFORM); } 

< VIDEO > None { rerum(TRANSFORM_NONE) ; } 

< VIDEO > Wavelet { retuni(TRANSFORM_WAVE); } 

< VIDEO > Stan { retuni(START); } 

< VIDEO > End { reium(END); } 

< VIDEO > Length { rctumO-EN); ) 

< VIDEO > Dimensions { rctum(DIM); } 

< VIDEO > Header { remmCHEADER) ; } 

< VIDEO > Offsets { remm(OFFSETS); } 

< VIDEO > Size { retuni(SIZE); } 

< VIDEO > Precision { reiura(PRECISION); } 

< VIDEO > Yes { yyIval.bool=Tnie; retuni(BOOLEAN); } 
<VlDEO>No { yylval.bool=Falsc; retura(BOOLEAN); } 



< BATCH > Load { remni(LOAD); } 

< BATCH > Save { rcnirn(SAVE): } 

< BATCH > SaveAbckus { remrn(SAVE_ABEKUS); } 

< BATCH > Compare { renira(COMPARE); } 

< BATCH > Drop { remra(DROP); } 

< BATCH > ImportKUCS { retuni(IMPORT_KUCS); } 

< BATCH >Transfonn { BEGIN BATCH_TRANS; retum(TRANSFORM); } 

< BATCH > Compress { BEGIN BATCH_COMP; retum(COMPRESS); } 

< BATCH > Xwave { renira(XWAVE); } 

< BATCH > SheU { renim(SHELL); } 

< BATCH > Copy { retura(COPY); } 

< BATCH > Direct { remm(DIRECT^COPY); } 

< BATCH > Diff { rcmm(DIFF); } 

< BATCH > LPFzero { remni(LPF_WIPE); } 

< BATCH > LPFonly { remm(LPF_ONLY); } 

< BATCH > RGB- YUV { renirn(RGB_yUV): } 
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< BATCH > Gamma { rcmm(GAMMA); } 



< BATCH_COMP > VideoNarae 
<BATCH_COMP>Suis 

< BATCH_COMP > Binary 
<BATCH_COMP>Yes 
<BATCH_COMP>No 
<BATCH_COMP> Still 
<BATCH_COMP> Video 

< BATCH_COMP > AutoQuant 

< BATCH_COMP > QuantConst 

< BATCH_COMP > ThrcshConsi 

< BATCH_COMP > BaseFaaor 

< BATCH_COMP > DiagFactor 

< BATCH_COMP > ChromcFactor 

< BATCH^COMP > Decision 

< BATC:H_C0MP > Feedback 

< BATCH_C0MP > Maximum 

< BATCH_C0MP > SigmaAbs 

< BATCH_C0MP > SigmaSqr 

< BATCH_C0MP > FUter 

< BATCH_COMP > None 
<BATCH_COMP>Exp 

< BATCH.COMP > CmpConst 

< BATCH.COMP > FrameRate 

< BATCH_COMP > Bitiate 

< BATCH_COMP > Buffer 
<BATCH_COMP>\{ 
<BATCH_COMP>\} 
retuni(RIGHT_BRACE); } 



{ remni(VTDEO_NAME): } 
{ reruni(STATS_NAME); } 
{ rcmraCBIN_NAME); } 

{ yylval.bool=True; remm(BOOLEAN); } 

{ yylva].bool = False; retum(BOOLEAN); } 
{ rtnim(STILL_MODE); } 
{ rctum(VIDEO_MODE); } 
{ retum(AUTO_Q); } 
{ retuni(QUANT_CONST); } 
{ rcnini(THRESH_CONST); } 
{ rtmni(BASE_FACTOR); ) 
{ renim(DIAG_FACTOR); ) 
{ remra(CHROME_FACTOR); } 
[ reium(DEaSION); } 
[ r«uni(FEEDBACK); } 

{ renini(DEC_MAX); } 
[ rcmm(DEC_SIGABS); } 
[ remm(DEC^SlGSQR); } 
[ remm(FILTER); } 
[ renim(FLT_NONE); } 

{ rcnini(FLT_EXP); } 
[ remra(CMP_CONST); } 
[ rcnini(FPS); } 
[ ictumOrrRATE); } 
; remra(BlJFFER); } 

{ renmi(LEFT_BRACE); } 

{ END; BEGIN BATCH; 



< BATCH TRANS >VideoName { retun»(VrDEO_NAME); } 
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< BATCH_TRANS > Diieciion { rcrurn(DIRECTlON); } 
<BATCH_TRANS> Space { remm(SPACE); ) 

< BATCH TRANS > Precision { remni(PRECISION); } 
<BATCH_TRA>JS>Yes 
<BATCH_TRANS>No 
<BATCH_TRANS>\{ 
<BATCH_TRANS>\} 



{ yylval.bool=True; retum(BOOLEAN); } 

{ yyIval.bool = False; retum(BOOLEAN); } 
{ retura(LEFT_BRACE); } 
{ END; BEGIN BATCH; remni(RlGHT_BRACE); ) 



(. \i\n] 



{:} 



7c% 

yywrapO { retuni(l); } 



Copied from 10340491 on 04/01/2005 



source/Transform. h 



typedef struct { 
Video src; 

char namc(STRLENl, src_name[STRLEN]; 
int space{2], precision; 
Boolean dim; 
} TransCtrlRec, *TransCtrl; 
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sourceA^ideo.h 



typedef struct { 

char names[4]ISTRLEN]; 
} AbekusCtrlRec. 'AbekusCirl; 
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source/makeflle 



# Xwave Makefile 
# 

CFLAGS = -0 -I.. /include 

LIBS = -IXaw -IXmu -IXt -IXext -IX 11 -Im -11 -Uusr/openwin/lib 

.KEEP_STATE: 
.SUFHXES: .c .o 

xwaveSRC = Scleci.c Conven.c xwave.c lniiMain.c Pop2.c Video2.c Malloc.c 
InitFrame.c \ 

Frame.c Traiufonn.c ConvolveB.c Update.c Image.c Menu.c 
PullRightMcnu.c \ 

NamcButtoD.c SmeBSBpr.c Pnxxss.c Lex.c Grazn.c Parse.c Color.c \ 
Bits.c Storage. c Copy.c Message.c Palene.c IroponKlics.c IconS.c Klics5.c 

\ 

KJicsSA.c KlicsTestSA.c ImponKlicsSA.c ImpKlicsTestSA.c 
objDIR = ../$(ARCH) 

xwaveOBJ = $(xwaveSRC:%.c=$(objDIR)/%.o) 

$(objDIR)/xwave: $(xwavcOBJ) 

gcc -o $® $(xwaveOBJ) $(1JBS) $(CFLAGS) 
echo ••••••••••••••••••••• 

$(xwavcOBJ): $$(®F:.o«.c) ../includei'xwavc.h 
gcc < S(®F: .0= .c) $(CFLAGS) -o S® 

Lex.c: Gram.c Lex.l 
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lex Lcx.l 

mv lex.yy.c Lex.c 

Gram.c: Grani.y 

bison -dlt Gram.y 

ir.v S(@F:.c = .tab.h) .. /include/Gram. b 
mv $(@F: .c = .lab.c) Gram.c 
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include/Bits.h 



#ifndef_Bits_h 
Mefine _Bits_h 

typedef struct { 

unsigned char buf; 

int bufsize; 

FILE -fp; 
) BitsRec, *Bits; 

#endif 
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typcdcf stnici DTheader { 

char file_id[8]; /* "DT-IMAGE" */ 

char siruci_id; /* 1 */ 

char prod_id; /* 4 •/ 

char, uiiljd; /* 1 •/ 

char board_id; I* 2*1 

char crcaie_time(9]: /* [0-l]year, (2]raonth, I3]dayofmonih, f4]dayofweek, 
[5]hour. I6]mm, [7]scc. (8]scc/100 •/ 

char mod_umcI9]: /* as crcate_iime */ 

char datum; /♦ 1 •/ 

char daia5i2c[4]; /• 1024?? ♦/ 

char file_sinu:t; I* \*l 

char datatype; /• 1 •/ 

char compress; /• 0 •/ 

char store; /* 1 •/ 

char aspcci(2]; /• 4. 3 •/ 

char bpp; /* 8 •/ 

char spatial; /• 1 •/ 

char width[2]; /• 512 •/ 

char hcight[2]; /• 512 */ 

char fuU_widih[2]; /• 512 •/ 

char fuU_hcight(2]; /• 512 */ 
char ujiusedl[45]; 
char coxmnentflSO]; 
char uiiused2[256]; 
} DTheader; 
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typedef enum { 

FW_label. FW_icon, FW_command, FW_iexi, FW_bunon, FW_icon_bunon, 
FW_view, FW_iogglc, 

FW_yn, 

FW_up, FW_down, FW_inicger, 
FW_scroll, FW_noat, 
FWforrn, 
} FormWidgetType; 

typedef enum { 

SW_bclow, SW_over, SW_iop, SW_niciiu, 
} ShellWidgctTypc; 

typedef stnict { 

String name; 

String contents; 

ini fromHoriz, ftxanVcrt; 

FonnWidgctType type; 

String hook; 
} Fonnltcm; 
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• SXCOiisonium: Image.h.v 1.24 89/07/21 01:48:51 kit Exp $ 
*/ 

/•—""• • " 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusens, 
and the Massachusens Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Pennission to use, copy, modify, and distribute this software and its 
documeniaiion for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this pennission notice appear in 
supponing documenution, and that the names of Digital or MTT not be 
used in advenising or publicity peruining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABIUTY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGUGENCE OR OTHER 
TORTIOUS ACTION, 
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ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 



#ifndef _XawImage__h 
^define _XawImage_h 



* Image Widget 



#include <X11/Xaw/Simple.h> 
^include <Xll/Xiiiu/Convencrs.h> 



Name Class RcpTypc Default Vahic 



border BoiderColor Pixel XiDefaultForeground 

borderWidth BorderWidth Dimension 1 

cursor Cursor Cursor None 

destroyCallback Callback XtCallbackList NULL 

insensiiiveBorder Insensitive Pixmap Gray 

mappedWhenManaged MappedWhcnManagcd Boolean True 

sensitive Sensitive Boolean True 

bitmap Bitmap Pixmap NULL 

callback Callback XtCallbackList NULL 

X Position Position 0 
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y Position Position 0 

•/ 

#defme XLNbitmap "bitmap" 

#dermc XtCBitinap "Bitmap" 

/• Class record constants */ 

extern WidgetClass imageWidgctClass; 

typedef struct _ImageClassRec *]mageWidgetClass: 
lypcdcf strua _ImageRec *ImageWidgei; 

#endif /• _XawImagc_h •/ 

/* DON'T ADD STUFF AFTER THIS #CDdif •/ 
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/• Author: Philip R. Thompson 

* Address: phjls®aihcna.ir.it.edu. 9-526 

* Note: size of header should be 1024 (IK) bytes. 

* SHeader: ImageHeader.h.v 1.2 89/02/13 09:01:36 phils Locked $ 

* SDate: 89/02/13 09:01:36 $ 

* SSource: /mit/phils/utils/RCS/lmageHeader.h.v $ 



Mefine IMAGE_VE3^I0N 3 

typcdcf sinict ImagcHeader { 

char rilc_vcTsion(8J; /• header version •/ 

char hcadcr_sizc[8]; /* Size of file header in bytes •/ 

char image width(8]; /* Width of the raster image */ 

char iraage_height|8]; /* Height of the raster imgagc */ 

char num colors[8]; /* Actual number of entries in c_map */ 

char num_channelsI8]; /* 0 or 1 = pixmap, 3 = RG&B buffers */ 

char num_picnjres[8]; /* Number of pictures in file ♦/ 

char alpha_channel[4); /* Alpha channel flag •/ 

char nmlcngth[41; /• Runlcngth encoded flag */ 

char author[48]; /* Name of who made it */ 

char date(32]; /* Date and time image was made */ 

char program[16]; /* Program that created this file */ 

char commentI96]; /* other viewing info, for this image ♦/ 

unsigned char c_mapI256]l3]; /• RGB values of the pixmap indices */ 

} ImageHeader; 



/* Note: 

♦ - All data is in char's in order to maintain easily portability 
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• across machines and some human readibiiity. 

• - Images may be stored as pixmaps or in seperaie channels, such as 

• red. green, blue data. 

• - An optional alpha channel is sepcrate and is found after every 

• nujn_channels of data. 

• - Pixir.aps, red, green, blue, alpha and other channel data are stored 

• sequentially after the header. 

• - If num_channels = 1 or 0, a pixmap is assumed and up to num_colors 

• of colormap in the header are used. 
•/ 

/••♦ end ImageHeader.h 
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/* 

* SXConsonium: ImageP.h,v 1.24 89/06/08 18:05:01 swick Exp $ 





Copyright 1987, 1988 by Digiul Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supponing documentation, and that the names of Digital or MIT not be 
used in aavertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WIFH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABIUTY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE UABLE FOR ANY SPECL^L, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS. 

WHETHER IN AN ACTION OF CONTRACT, NEGUGENCE OR OTHER 
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TORTIOUS ACTION. 

AJUSING OUT OF OR IN CONNECTION mJH THE USE OR PERFORMANCE OF 
THIS 

SOFTWAJIE. 

- ^ • • */ 

/* 

• ImageP.h - Private definitions for Image widget 
* 

#iftidef _XawIinageP_h 
(fdefxne _XawImagcP_h 

/••••**• • • 

• Image Widget Private Data 

• • • / 

#include ".. /include/Image .h" 
^include <Xll/Xaw/SimpleP.h> 

/* New fields for the Image widget class record •/ 

typedef struct {ini foo;} ImageClassPan; 

/* Full class record declaration •/ 
typedef struct _ImageClassRec { 

CoreClassPan core_class; 

SimpleClassPait siraple_class; 
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ImageCJassPan iinage_class; 
} IrrJgcClassRec; 

exicni ImagcClassRec imagcGassRec; - 

/* New fields for the Image widget record */ 
typedef struct { 
/♦ resources */ 

Pixmap pixmap; 

XtCallbackUst callbacks: 

/* private state */ 

Dimension raap_width, map_heighi; 
} ImagcPari; 

/ • * * 

• Full instance record declaration 

• •••*/ 

tj-pedef struct _ImageRec { 

CorcPart core; 

SimplePan simple; 

ImagePan image; 
} ImageRec; 

#endif /*_XawImageP_h»/ 
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typcdcf struct { 

Widget shell, widget; /* shell and text widgets (NULL if not created •/ 

XawTexiBlock info; /* Display text */ 

int si2e, rows, cols; /* Size of buffer (info.ptr) & dimensions of display •/ 

XawTexiEditType edit; /* edit type •/ 
Boolean own_tcxt; /* text is owned by message? */ 

} MessageRec. *Message; 
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Mtfms PaJenePath "." 

^define PalctisExt ".pal" 

lypedcf struct _MapRec { 
int Stan, finuh, m, c; 
stnict _MapRec ^ncxt; 

} MapRec, *Map; 

typedef struct _PaleneRBC { 
char namc[STRLEN]; 
Map mappings; 
struct _PalcttcRec *next; 

} PaJetttRec, •Paktte; 
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* SXConsonium: PuIlRighLMenu.h,v 1.17 89/12/11 15:01:55 kit Exp $ 

* Copyright 1989 Massachusetts Institute of Technology 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright rx}tice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* wrinen prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 
* 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.LT. 

* BE LIABLE FOR ANY SPECL\L, INDIRECT OR CONSEQUENITAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS. 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGUGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
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/* 

* PuJlRighiMenu.h - Public Header file for PullRighiMenu widgci. 

* This is the public header file for the Aihena PullRightMcnu widgci. 

* It is intended to provide one pane pulldown and popup menus within 

* the framework of the X Toolkit. As the name implies it is a first and 

* by no means complete implementation of menu code. It does not attempt to 

* fill the needs of all applications, but does allow a resource oriented 

* interface to menus. 

*/ 

^'ifndef _PullRightMenu_h 
^define _PuIlRjgbtMenu_h 

#include <Xll/SheU.h> 

^include <Xll/Xmu/Converters.h> 

/ * • * ' • " 

* PuIlRightMenu widget 

— • • • •/ 

/♦ PuIlRightMenu Resources: 

Name Class RepTypc Dcfeult Value 



background Background Pixel XtDefaultBackgiound 

backgroundPixmap BackgroundPixmap Pixmap None 
borderColor BorderColor Pixel XtDefaultForeground 
borderPixmap BorderPixmap Pixmap None 

Copied from 10340491 on 04/01/2005 



- 448 - 



borderWidih BordcrWidih Dimension 1 

bonomMargin VenicalMargins Dimension VenicalSpace 

colimuiWidth ColumnWidih Dimension Width of widesi text 

cursor Qxnor Cursor None 

desiroyCallback CaJlback Pointer NULL 

height Height Dimension 0 

label Label String NULL (No label) 

labclClass LabelClass Pointer smcBSBObjcctClass 

mappcdWhenManaged MappedWhenManagcd Boolean True 

rowHcight RowHeight Dimension Height of Font 

sensitive Sensitive Boolean True 

topMargin VenicalMargins Dimension VenicaJSpacc 

width Width Dimension 0 

butwn Widget Widget NULL 

X PositioD Position 0 

y Position Position 0 



•/ 

typedef struct _PullRightMenuClassRec* PullRightMenuWidgctClass; 
typedef struct _PullRightMenuRec* PullRighiMcnu Widget; 

cxum WidgctClass puilRightMenuWidgetClass; 

#define XtNcursor "cursor" 
^define XtNbotiomMargin "bonomMargin" 
#defme XtNcolumnWidth "columnWidth" 
#defme XtNlabelClass "labelClass" 
#define XtNmenuOnScrecn "mcnuOnScrecn" 
#defme XtNpopupOnEniry "popupOnEntry" 
/Cdcfme XtNrowHcight "rowHeight" 
ii'defme XtNtopMargin "topMargin" 
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#dcfinc XtNbunon "bunon" 

#defme XtCColumnWidth "ColumnWidth" 
#define XtCLabelCIass "LabelClass" 
#defme XtCMenuOnScreen "MenuOnScreen" 
^define XtCPopupOnEntry "PopupOnEntry" 
#dcfinc XtCRowHeight "RowHcighl" 
^define XtCVcrticalMargins "VenicalMargins" 
^define XtCWidget "Widgcf 

/••• • * " 

* Public Functions. 

•••••• 

/* FunciioD Name: XawPuIlRigbtMeDuAddGlobalAcdons 

* Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontcxt. 

* Returns: none. 
•/ 

void 

XawpullRightMcnuAddGlobalActions(/* app_con */); 
/♦ 

XiAppContext app_con; 
•/ 

#endif /• __PuIlRightMenu_h ♦/ 
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indude/SmeBSBpr.h 

• SXConsonium: SmeBSB.h.v 1.5 89/12/11 15:20:14 kit Exp $ 

• Copyright 1989 Massachusetts Insiituie of Technology 

• PcnnissioD to use. copy, modify, distribute, and sell this software and its 

• documcmaiion for any purpose is hereby grained without fee, provided that 

• the above copyright notice appear in all copies and that both that 

• copyright notice and this permission notice appear in supporting 

• documentation, and that the name of M.I.T. not be used in advertising or 

• publicity pertaining to distribution of the software without specific, 

• written prior pcnnissiou. M.I.T. makes no representations about the 

• suitability of this software for any purpose. It is provided "as is" 

• without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

• IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

• BE LIABLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE. DATA OR PROFITS, 
WHETHER IN AN ACTION 

• OF CONTRACT. NEGUGENCE OR OTHER TORTIOUS ACTION. ARISING OUT 
OF OR IN 

• CONNECTION WTFH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
•/ 
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/• 

• SmeBSBpr.h - Public Header file for SmcBSB object. 

• This is the public header fiie for die Athena BSB Smc object. 

• It is intended to be used with the simple menu widget. This object 

• provides bitmap - string - bitmap style entries. 

*/ 

#ifiidef_SmeBSBpr_h 
^define _SmeBSBpr_h 

#include <Xll/Xniu/Converten.h> 

^include <X11/Xaw/Sme.h> 



* SmcBSBpr objea 

• 

/* BSB pull-righi Menu Enny Resources: 

Name Qass RepType Default VaJue 



callback Callback Callback NULL 

dcsiToyCallback Callback Pointer NULL 

font Font XFoniStruct ♦ XtDcfauliFom 

foreground Foreground Pixel XtDefaultForeground 

height Height Dimension 0 

label Label String Name of entry 
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lefiBiimap LefiBimap Pixmap None 

lefiMargin HorizonmlMargins Dimension 4 

righiBinnap RighiBitmap • Pixmap None 
righiMargin HorizontalMargins Dimension 4 

sensitive Sensitive Boolean True 

venSpace VenSpace int 25 

width Width Dimension 0 

X Position Position On 

y Position Position 0 



menuNamc McnuName String "menu" 
*/ 

typedef struct _SmeBSBprClassRec *SmcBSBprObjectClass; 
typcdef struct _SraeBSBprRec •SmcBSBprObject; 

extern WidgetClass smeBSBprObjectClass; 

^define XiNleftBitmap "lefiBitmap" 

#dcfme XtNIeftMargin "IcftMargin" 

#defme XtNrightBitmap "righlBitmap" 

^define XiNrightMargin "righiMargin" 

^dcfujc XtNvertSpace "vcrtSpacc" 

#define XiNmcnuNamc "menuNamc" 

#dcfme XtCLeftBitmap "LeftBitmap" 

#defme XtCHoriionialMargins "HorizontalMargins" 

#defme XtCRightBitmap "RigbtBiimap" 

#defme XtCVertSpacc "VeitSpacc" 

#defmc XiCMenuNamc "McnuName" 

#endif /* _SmeBSBpr_h •/ 
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• SXConsonium: SmeBSBP.h,v 1.6 89/12/11 15:20:15 kit Exp $ 

• Copyright 1989 Massachusetts Institute of Technology 

• Peimission to use, copy, modify, distribute, and sell this software and its 

» documentation for any purpose is hereby granted without fee, provided that 

• the above copyright notice appear in all copies and that both that 

• copyright notice and this permission nodcc appear in supporting 

• documentation, and that the name of M.I.T. not be used in advertising or 

• publicity pertaining to distribution of the software without specific, 

» written prior permission. M.I.T. makes no rqjresentations about the 

• suitability of this software for any purpose. It is provided "as is" 

• without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE. 
INCLUDING ALL 

• IMPUED WARRANTIES OF MERCHANTABILITY AND HTNESS, IN NO 
EVENT SHAUL M.I.T. 

• BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

• OF CONTRACT. NEGUGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

• CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
. * Author: Chris D. Peterson. MIT X Consonium 
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•/ 
/• 

• SmeP.h - Private definitions for Sme object 
•/ 

#ifndef _XawSmeBSBP_h 
^define _XawSmeBSBP_h 

/ • * 

• Sme Object Private Dau 

• • — / 

^include <Xll/Xaw/SmcP.h> 
#mclude "../includc/SmcBSBpr.h" 

/ 

• New fields for the Sme Object class record. 

• • • • ...•/ 

typedef struct _SineBSBprClassPart { 

XtPointcr extension: 
} SmcBSBprClassPan; 

/• Full class record declaration */ 
typedef struct _SincBSBprClassRec { 
RectObjClassPan rect_class; 
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SmeClassPan sme_class; 
SmcBSBprClassPan smc_bsb_class: 
) SmeBSBprClassRec; 

extern SmeBSBprClassRec smeBSBprClassRec; 

/* New fields for the Smc Object record •/ 
typedef struct { 
I* resources */ 

String label; /* The entry label. */ 

ini ven space; /* extra vert space to leave, as a percentage 



Dimension Icft^margin, right_inargin; /* left and right margins. */ 



String mcnu_namc; /* Popup menu name */ 
/• private resources. */ 

Boolean set vaJues_arca_cleared; /• Remember if we need to unhighlight. */ 



of the font height of the label. */ 
Pixmap lcft_binn2p, right^bitmap; /* bitmaps to show. •/ 



Pixel foreground; 
XFontStruct * font; 
XtJustify justify; 



/♦ foreground color. •/ 

/♦ The font to show label in. •/ 



/• Justification for the label. */ 



GC Dorm_gc; 
GC rev _gc; 
GC norm _gTay _gc; 
GC invcn _gc; 



/• noral color gc. •/ 
/• reverse color gc. ♦/ 



/• Normal color (grayed out) gc. */ 
/• gc for flipping colors. •/ 



Dimension left_bitmap_width; /• size of each bitmap. ♦/ 



Dimension lcft_bitmap_hcight; 
Dimension right_bitmap_width; 
Dimeiision right_bitmap_height; 
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} SracBSBprPan; 

/" 

" Full instance record declaration 



typedef struct _SmeBSBprRec { 

ObjectPan objeci; 

ReciObjPart rectangle; 

SmcPan smc; 

SmcBSBprPan sme_bsb; 
} SmeBSBprRec; 

/ 

• Private declarations. 

.•»••••••»•»»•»•»••>••••••»*•/ 

(fcndif /* _XawSmcBSBPpr_h */ 
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^include 


<X11/Xlib.h> 


^include 


<X11/Xutil.h> 


^include 


<Xll/Xatom.h> 


^include 


< X 1 1 /Xaw/Cardinals . h > 


^include 


<Xll/StringDefs.h> 


^include 


<X11/Xmu/Xmu.h> 


^include 


< XI 1/Xaw/Command.h > 


ft UlLiUUC 


< X 1 1 /Xa w/List. h > 


^include 


< XI 1/Xaw/Box.h > 


^include 


<Xll/Xaw/Fonn.h> 


^include 


< XI l/Xaw/Scrollbar.h> 


#include 


< XI 1/XawA'^icwport.h > 


^include 


< XI 1/Xaw/AscuTcxt.h > 


^include 


<Xll/Xaw/Dia]og.h> 


^include 


< XI 1/Xaw/MenuBuaon.h > 


^include 


< XI l/Xaw/SimpleMcnu.b > 


^include 


<Xll/Xaw/SmcBSB.h> 


^include 


<Xn/Xaw/Toggle.h> 


#include 


"SmcBSBpr.h" 


^include 


"PullRightMenu.h" 


^include 


<Xll/ShcU.h> 


^include 


<Xll/cureorfoDt.h> 


#defme 


STRLEN 100 


#defise 


NAME_LEN 20 


^include 


'Image.b" 


^include 


"Message.h" 


^include 


<dirtni.h> 


^include 


<math.h> 
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^include <stdio.b> 
^include 'Palcnc.h" 
^include "Icon.h" 

iTdefine PLOT_DIR "graphs" 

^define PLOT_EXT ".plot" 

^define ELLAJN_DIR 

^define ELLA_IN_EXT ".cli" 

#defme ELLA_OUT_DIR "•" 

#define ELLA_OUT_EXT ".do" 

i^define VID_DIR "vidtos" 

Wefine VID_EXT ".vid" 

#dcfmc IMAGE_DIR "images" 

#dcfme BATCH_DIR "batch" 
ffdcfme BATCH_EXT ".bat" 

#defme KUCS_DIR "import" 

#defme KLICS_EXT ".klics" 

(Cdefine K1JCS_SA_DIR "import" 

#defme KUCS_SA_EXT ".IdicsSA" 

typcdef enum { 

TRANS_None, TRANS__Wave, 
} TransType; 

typcdef enum { 

MONO, RGB, YUV, 
} VideoFonnat; 

extern String ChaiiDclNamc(3][4]; 

#defme negif(bool. value) ((bool)?-( value): (value)) 
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typedef struct { 

String name; 

Pixmap pixmap; 

unsigned int height, width; 
} IconRec, 'Icon; 

typedef void (•Proc)(); 
typedef String *(*ListProc)0; 
typedef Boolean (*BoolProc)(); 

typedef stnict { 
String name; 
WidgetClass widgetClass; 
String label; 

String hook; /• menxiName for smeBSBpiObjectClass •/ 
} Menultem; 

typedef stnict { 

String name, button; 

LisiProc Iisi_proc; 

String action_name; 

Proc actionjjroc; 

caddrj action_closure; 
} Sclcctltcm, *Selection; 

typedef struct { 

TransType type; 

int space[2]; 

Boolean dini; 
} WaveletTrans; 

typedef union { 
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TmsType type; 
WavcletTrans wavelet; 

\ VidcoTrans; 



rypedef struct _VideoRec 
char name{STRLEN]; 
char path(STRLEN]; 
char filesISTRLEN]: 
VidcoFormai type; 
Boolean 
Boolean 
Boolean 
int rate; 
Stan; 



{ 



int 



/• Name of this video name.vid */ 
/• Path to frame file(s) •/ 
/• Name of frames filesOOl if not name •/ 
/♦ Type of video (MONO.RGB.YUV) •/ 
disk; /• Frames reside on disk rather than in memoiy */ 
gamma; /* Gamma corrected flag */ 

negative; /• Load negative values in data •/ 

/* Frames per second •/ 
/* Starting frame number */ 
int sizc[3]; /* Dimensions of video after extraction x, y and z ♦/ 
int UVsamplePJ; /• Chrominance sub-sampling x and y •/ 

int offset; /• Header length •/ 

int cols, rows; /• Dimensions of video as stored •/ 

int x_offsei, y_ofTsct; /• Offset of extracted video in stored •/ 
VideoTrans trans; /• Transform technique used "/ 

int precision; /• Storage precision above 8 bits •/ 

short •*data[3]; /* Image data channels ♦/ 

struct _VideoRec *next; /• Next video in list •/ 

} VideoRec, *Video; 



typedef stnict { 

Video video; 

char namefSTRLEN]; 
) VideoCtrlRcc, *VidcoClrl; 



typedef struct _PoiniRec { 
int location[2]; 
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ini usage; 

struct _PoiiuRec •next; 
} PoiniRec. 'Point; 

typedef struct _FrameRec { 

Widget shell. image_widget. point_merge_widget; 
Video video; 

int zoom, frame, channel, palette; 
Boolean point_switch, poini_merge; 
Point point; 
Message msg; 
struct _FraincRec •next; 
} FrameRec, *Frame; 



#defme NO_CMAPS 6 

typedef struct _BatchRec { 
Proc proc; 

caddr^t closure, call_data; 
struct _BaichRec ♦next; 
} BatchRec, *Batch; 

typedef struct { 

char hon»e[STRLEN]; 
XtAppComext app_con; 
Widget loplevcl; 
int no^icons; 
Icon icons; 
Video videos; 
Frame frames; 
Point points; 
Palette palettes; 
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ini no_paJs; 
String paTSC_rilc; 
Siring paTse_ioken; 
FILE *parse_fp; 
XVisuallnfo "visinfo; 
int levels, rgb_lcvels, yuv_levels(3]; 
Colonnap cm2ps[N0_CMAPS]; 
String batch: 
Batch batch_list; 
Boolean debug; 
int ditber[16][16]; 
} GlobalRec, •Global; 

typedef struct { 

Widget widgcts(3J; 

int max, min, •vahie; 

String format; 
} NumlnputRec, ^Numli^ut; 

typedef struct { 

Widget wid£ets[2]: 
double max, min. *vaJue; 
String format; 

} FloatlnputRec, ^Floatli^ut; 

extern Global global; 
/* InitFrame.c ♦/ 
extern Video FindVidcoQ; 
/* Pop2.c */ 
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exiem void NAO; 
exiem Widgci FindWidgetQ; 
exiem void DestroyO; 
extern void Free(); 



/* Siorage.c */ 



extcm void NcwFranieO; 
exiem void GeiFrameO: 
extern void SavcFrameO; 
extern void FrecFrameO; 
extern void SavcHcaderQ; 
extcm Video CopyHcaderQ; 



/• Mcssage.c ♦/ 



extern void TextSizeQ; 

extem Message NewMessageO: 

extern void Message WindowQ; 

extcm void CloscMessageO: 

extcm void MprimfQ; 

extern void DprimfQ; 

extem void EprintfO; 

extem void MflushQ; 



/• Icons .c •/ 



extcm void FillFoimO; 

extem void FillMenuQ; 

extem Widget ShellWidgetO; 

extem Widget ForaaatWidgetQ; 

extem void SimpieMenuQ; 
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exicm int TcxtWidthO; 
exicm Icon FindlconQ; 
extern void NumlncDecQ; 
extern void FloailncDec(); 
extern void ChangeYNQ; 
extern XFontStruct *FindFont(); 
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DATA COMPRESSION AND DECOMPRESSION 
GREGORY KNOWLES AND ADRIAN S. LEWIS 
M-2357- US 
APPENDIX B-1 
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Wr:;:en by: Adrian Lewis 



630X0 rast Tcp Octave 



swap 

neg . w 
add.w 
add.w 
swap 
move . 1 

endm 



&DG, &HG, told, tXX 

&HG 

&0G 

&HC.&OG 
&XX,&KC 
&HG 

&OG,&oId 



: HG=G1H0 
XXsGO 
DG=D(-GO) 
DGsDD 
HG=G1D 
HGiiDGl 
save OD 



&HGO, &newO. &HCa. 4newl, UOC 



move . 1 
move. 1 
move. 1 
add.l 
sub.i 

endm 



&newO,&XX 

&newl,&HCl 

&HG1,&HG0 

&XX.&HG1 

&XX,&HGO 



r read HG 
; r«ad HC 
copy HG 
nevlsHlGl 
newOsHOGO 



macro 
TOPBLOCX 


&DCO, &HGO, &newO, ioldO. &DG1, tKGl, 


Topy 

TOPX 
TOPX 


&HCO , tnewO . &HC1 . &newl . £XX 

&DGO.(HGO,6oldO.&XX 

&DGl,&HGl,&oldl.&XX 


endm 




nacro 
TOPH 


&HG, &new, &old, &XX 


move . 1 
TOPX 


&new,&HG 

&DG,4ilG,&0ld.LXX 


endn 




macro 
TOPE 


taa. tola, &xx 


move. 1 
swap 
itiove.w 
move. 1 


iOG.UCX ; XX-DG 
&XX ; XXsCD 
&XX.&DG : DGsDD 
£DG,&old : save DD 
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Engineering.-KlicsCcde . CcmpPict :T=p.a 



d4-d7/a3-a5, ■ 



(a7i 



move. ; 
add.l 
move. 1 



PS.src(a6l .aO 
PS.height(a6) ,d7 
PS. width ( a6 ) ,d6 
aO.al 

PS.dsc la6l .al 

d6.dS 
• dS.dS 
d5.a4 



: read src 
; read heighc 
: read widch 

read dsc 

inc » width 



TOPH 
TOPH 
dbf 

TOPH 
TOPE 



TOPBLOCK 
TOPt 
TOPE 
dbf 



laO)*,dO 

dO.dl. (aO)- 
dl.dO, (aO)- 
dS.Odol 
dO.dl, (aO)< 
dl, lal>*.d4 

a0.a2 
al.a3 
a4,a0 
a4.al 
d6.dS 

d2. (a2)*.d0, (aO)- 

d2.d3. ia2)*. (a3). 
d3.d2. (a2)*. ia3)- 
d5,edo3 

d2.d3. ;a2)*. (a3)« 
dl. (al)*.d4 
d3. (a3)*,d4 
d7 , 9do2 



, (a:)*.d4 
, (al)*.d4 



: while -l!»--ccount 

; newOsnewl 

: oldOcoldl 

; newl»»inc 

; oldl*sinc 

: ccouncawidch 

.. (aO)*. ial>->.d4 
I. (aO>«. (al)-.d4 
; while -.i!r--ccounc 

.. (aO)«. (al)*,d4 
: while -l!=--heiffht 



move. 1 
move.l 
dhf 



(b3)». (al)* 
laOl-., ial)-> 
d5.ado4 

(a7),,d4-d7/a3-a5 



r copy prev line 
while -1! 
restore registers 
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^ Engineer ing:KlicsCode:Cor^3Pict :Top.fi 

\inlk »6 ; remove locals 

r:s ; return 

ENDFUNC 
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680XC Tatile Loocjp RCB/YUV code 



if tTVPEC 

seg 

end if 

KKTABLE nnJC EXI 

PS RECORD 
Table OS.L 
CNDR 



f'UNCEFINED" Chen 



move . 1 
clr.l 
teLoop 

move.w 



d4-d?/a3-aS, -(d7) 
FS.TaJalelaS) .aO 



: score regiscers 

.•Table is (long) (3U*5I2) I long) I 



add.w 

add.w 
add.w 
asr.w 
sub.w 

Isr.w 



d3.d3 
d3,d2 

d2.d3 



add.w 



41, dO 

#S0200.dO 

«MaJc«Loop 

«S00000200.dO 



1312. dl 
d0.d2 
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=»srcoo,d2 






nov« , w 


d3.d3 


■•'J 






d2 d2 






ddd.w 


dl,'d2 




512 


<ssr .w 


• 2.d2 










•Place 






di! (aO). 


•Place 


2nd word 


add.w 


d3.d3 


;2U 




move.w 


d3.d2 


3U 




add.w 


d3.d3 


4U 












asr.w 


• 4!d3 


60/16 




sub.w 


d3.dl 


512 - 


(60/161 












dJ.'faO)- 


Placs 


1st word 




dl, (aO)* 


Place 


2nd word 


add.l 


• l.dO 






add. I 


*l.d4 








«$0200.d4 






bne 


(MaXeNe^Loop 






moven. 1 


(a7)..d4-d7/a3-a5 


react 


re regiat 


unlX 


a6 


reraov 


• locals 


res 




recuxn 


ENDFUNC 









macro 

FIXOV «V, &5P1, &SP3 

move.w (V.tSPl 

clr.t 4SP1 

andi.w »S3FfT,4SPl 

sne iSPl 

best «13,iSPl 

seq tSfi 

or.b 4SPl.tV 

and.w (SP2.«V 

swap tV 

move.w iV.tSPl 

clr.b iSPl 

andi.w fS3rPr,SSPl 

sna (SPl 

btsc »13,iSPl 

aeq «SP2 

or.b &SPl,iV 

and.w (SF2,tV 

swap tV 



if «TYPE( 'SCO' )»'UNDEFINED' Chen 

9e« fcaeg 

•ndif 

YW2RCB4 TVtK EXPORT 

PS RECOXB 8 

Table DS.L 1 
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Er.5ineerir.c:.KlicsCcde:CompPict :Table.a 



DS.L 

ZS.l 
ZS.L 
DS.L 



lend DS.L i 
count DS.L 1 
LSize EOU 

;yoid YUVtcRCBlPtr TablePir.long •pi;cMp. short -Yc. short 'Uc. shore 'Vclcng *rea.i 
•long inc. Iwidth. fend. count; 

d0..6 - used, d7 - count 



add.l 
add.] 
add.l 
move. 1 



add.l 
sub.l 
move.l 



PS.pijanap(a6) ,a4 
a4,a3 

BS.y(a6).aO 
aO.al 

PS.Ula6).a2 
PS.V(a6),a3 
PS.area(a6),d7 

• 2,d7 
a4,d7 

d7,L£.fend(a6] 
PS.width(a6l ,dS 
d5.d7 

• l,d7 

• l,d7 

d7.PS.width(a6) 

dS.dS 
dS.al 

dS.dS 

dS.LS.widthiaS) 

PS. colt la£) ,d« 

f2.d4 

d4,a3 

d4,d4 

d5.d4 

d4.LS.incia6) 



: pntOspixmap 
pnlapniD 

; riaYO 
; U-Uc 
; V.Vc 
: !endaaxea 

; <end*-pmO 

; save fend 

; widthswldth 

; count •width 

; counc>>Bl 

; count -si 

; save width 

; widch»=2 
; yi.=width 
widch'=2 
save width 



; cols' 82 

; inc now 2«cols-widtn bytes 
r aave inc 



Colors wanted are: 

WUJ . «y ♦ 2V • 512) / 4 

GREEN r (Y - V ♦ 512 - (60/16)) 
BLUE • (Y . 2U . 512) / < 



trrable pare is for 
UTable pare is fox 
UTable pare is for 
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Engineering: KlicsCoderCcmpPict :7able. a 



■ ca, dJ • 



ba. 



■e.i 



move . 1 
move . 1 
JDidOuickU 

beq 

nove.w 
asr .w 

move . w 
swap 

move. 1 

and.w 
move . 1 
move.i 
bra 

SDoQuickU 

move.l 
move. 1 
move.l 
bra 



(a2)*,d2 
SDoOuicW 
•S03rT,d2 

ia6,ci2.W8) .d3 
d3.d6 

4(a6.d2.w8),d5 



d4 - rb. d5 - gb/!12, d6 • 



: SLUE. Get (2U ♦ 512) /■ 
.Dup for second pair 
rCRTIN, Get (512 - 1 6( 



(a}). 



,dl 



SDoOuickV 
dl,d4 
t2,dl 
dl.dS 
dS,d2 
d3 



»S03fT,d4 
(a6,d4.w8).d4 
d4.dl 
«T«se£nd 



*S00800080,d3 

d3,dS 

d3.dS 

SDidOuickU 



:ii zero Chen handle using the 
;GREDJ, Get (512 - (6U/16) - V) 



ue I (Y . 

Quick m 
/4 for • 



;Dup for ; 
;RED, Get 



scond pair 

(2V ♦ 512)/4 for 1 



.•BLUE, Get (2D ♦ 512) /4 for Blue . (Y • 
;Dup for second pair 

;CREB», Get (512 - (6U/16))/4 for Cree: 



dS.d3 

*S00800080,d4 
d4.dl 



;CF£»I, Get (512 - (60/16) - V)/4 for • 
.-RED. Get (3V * 512) /4 for Red - (Y « 
:tXip tor second pair 



I to RGB values - rETCHY 
(aO)*,dO 
12, dO 



Ia0)*,d0,dl,d2,d3 



add.l 
; add Yb 



dO.dl 
d0,d2 
d0.d3 



;Y ia -128 to -.127 

.•RED, Gee (Y* ?v ♦ 512) for Red . (Y ♦ 
;GREB(, Gee (Y ♦ (512 - (60/16)) - V) 
.■BLUE. Get (Y • (2U * 512) for Blue > ( 



0 RGB values - FETCHY2 ( al ) « , dO, d4 , dS , d6 
(ai)»,dO ;Y 
*2.dO 
dO 

12. dO 

dO 

d0,d4 
dO.dS 
dO.dS 



;Y is -128 to •►127 

,RCD, Gee (Y'r 3V » 512) for Red < n 
.•CREEK, Gee (Y * (512 - (6U/16)) • N 
.•BLUE, Gee (Y * (2U * 512) tor Blue • 



or.l 
or.l 
or.l 



d2,d0 
d3,dO 
dS.dO 
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t:ngineerin5:KiiC3Code:CompFic: 



save RCBa - mjcrcb dl.d2.d3. (a4). 



swap 

!T»Ve.W 

move . 1 



: save RGBb 

Isl.l 

or.l 

move . 1 

swap 

meve.w 

swap 

move . 1 
dbf 



- MKRCB d4.d5.d6. (aS)- 

#8,d5 

dfi.dS 

d4,d6 



d3.d4 
d4, (aS)* 
d6. (aS)> 



CrCOCC (121 
G=GBGB (12) 
B=OROR (12) 
BaOROR (21) 
B=ORCB (2) 
C=GBGB (2i) 
R=ORGB (1) 
•RCB—.rgb (1) 
'RGB»»=rsb (21 



C.COCO (13) 
G:GBGB (12) 
BrOROR (12) 
B.OROR (21) 
Be ORGS (2) 
CrGBCB (21) 
R«ORCS (1) 
•RCB*-srgb (1) 
•RGB—.rgb (2) 

while 



exg.l 
move. 1 
cmpa.l 
blew 



LS.inc(afi),a4 
L5.inc(aC),aS 
LS.vidch(«6l ,«0 
aO.ai 

PS.width(a6) .d7 
LS. fend(a6) . a4 
edo2 

(a7)«.d0-d7/a0-a5 



pral+sinc 
yO^»wi<3Ul 

yi<->ro 

couno width 
pmO<f encT 
while 



a6.-(sp) 
PS.TabIe(a6) .a6 
edo 



ePixIt 

btsc 
beq 
and.l 

eoiTopNotNcg 
best 
beq 
and.l 
or.l 

9DlTopNocPO« 



»$oooofrrr,dO 

•34. dO 

«DlT0pN0tP0S 

♦soooorrrr.do 
«$ooFroooo,do 



;See if upper word 

.-Pin ac zero 

.See if upper word 



went coo positive 



.See if lower word 



went negative 
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and.l 


•srrrroooo.do 


SDlBotNocNeg 




tiCSC 


te.do 


b«q 


SDlBotNocPos 


and.l 


•SrPFTOOOO.dO 


or.l 


•SOOOOOOFF.dO 


SDlBctNotPos 


rts 





Engineering: KlicsCoderCompPict: Table, a 
•Pin ac zero 

••See if icwer word wenc :oo positive 



.-.Mask old caca out 
.New data is maxed 



move . 1 


dl.dO 




epixit 


move. 1 


dO.dl 


move . 1 


d2,d0 


bsr 


9FixIt 


move.l 


d0.d2 


mova.l 


d3,dO 


bsr 


SFixlE 


mov«.l 


dO,d3 


move. 1 


d4.d0 


bsr 


srijcit 


ytov. 1 


dO,d4 


move. 1 


dS.dO 


bar 


OPixle 


move. 1 


dO.dS 


move. 1 


d6.dO 


bar 


OFijtlc 




dO.de 



bra eok 



ENS 
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Engineering : KiicsCode: Cc.mpPic: : KlicsUci 



© Ccpyright :?9j KLICS 
All righis resen/ed. 

AT'.rren by: Adrian Lewis 



68000 Klics LTnlities 

KLCopy TUNC EJCPORT 

lacopYishor: 'arc, short 'dsc, int areal ; 



D5.L 1 

DS.L 1 
E3JDR 

linJc a6.(0 

move.l PS.src(a6) .*0 

rr«v«.l PS.dst(«6),al 

mova.l PS.ead(a6) ,d3 

Isr.l t^.d^ 

sutiq.I *l.d3 



move.i 
move.l 
mov«.l 



laO)*, 



; no local variables 

; short 'src 
: short •out 
; long axea 
; in wordalxS) 
: ar««-al 

•dat**=»src»* 

•dat^^-'src*-* 

•d«t*»«*src»» 

•d9t»»»'8rc*» 

•dst**«'src*- 

•dst»»«'src*» 

•d«t»-*«*9rc»» 

*dat»»«*9rc»* 

i£ -l!»--area goco'de 

renov* local* 



KLHalf rtwc 



RECORD 

DS.L 

DS.L 
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Eng:neering:KlicsCcde:CcrtpPic=:K:icsutiI.a 



move . 1 
move. 1 
subg. 1 
Tiove . 1 
Isr.l 
subq.X 
r.ove . 1 
nove . w 
addq . 1 
nove . 1 
move . 1 
move.w 
addq.l 

ax>i 

adda.l 
adds.: 
adda. 1 
adda.l 



»FS.wid:h(a6).d2 

FS. height I a6) .dJ 

»l.d3 

d2.d4 

■^I.d* 

M,d< 

(aO)»,dO 

(aOW.dO 

*2.aO 

dO, (al). 

iaO)..dO 

iaO)*.dO 
»2,aO 
do, (al)- 
d4 . 8do_x 
d2,aO 
d2.a0 
d2,a0 
d2.a0 
dJ , 9do_y 

(*7)*,dl 



; ior.5 width 
: long fieighc 
; hei7hc-=l 
; countswidch 
: counc /s 2 
; counc-=l 
. dOs'src*. 
; d2«'src<-» 
; src»=l short 
; 'dst^.sdO 
; dOo'arCf* 
; da-'src** 
; src*=l short 
; •d3t.«rdO 

; if -l!=--width goto do_x 

: skip a guartar row 

; skip a Quarter row 

; skip a quarter row 

; skip a quarter row 

; if -i;s--height goto do_y 

; restore registers 
I xenove locals 
■ return 



KL2ero nJNC E3CP0RT 

• KLZEHOOhort 'data, iac area): 



DS.L 
DS.L 



move. 1 
move. 1 
Isr.l 
suoq. 1 
clr.l 
clr.l 
clr.l 
clr.l 



a6.*0 

PS.data(a6) ,aO 

PS.endta6),d3 

i3.d3 

il.d3 

(aO). 

(aO)-> 

(aO). 



no local variables 

short 'data 
long area 
in words (x4> 
area-sl 
•dat»*-*sre*-' 
•dst'»*e«src4-> 



•dJt*. 



•src*" 



CLIAIIA2 FONC 



EXPORT 

• 0,a2 
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Engineering: KlicsCode :Ccrr.pFicc : :< 1 ics Encode . h 



• S Copyricht 1993 laiCS Limiteci 

• Aii rigf-.cs reserved. 

' ■'iricten by: Adrian Lewis 



:/pedef pcrucc i 



l.-.t 


bpf.ir, 
=pf _c\:c . 
I7uf_si2e; 


/• User 
/• User 
/• User 


- Bytes per franie in input stream ■ .' 

- Bytes per frame in output stream •/ 

- Buffer sire (bytes) •/ 


3colear 


1 intra. 
auto_q, 
buf_sw; 


/• Calc 
/• User 
/• User • 


- Compression mode intra/inter •/ 

- Automatic guantiiation for rate control 
• Tfteorecical buffer on/of* •/ 


:ioa: 


^uant , 
thresh. 

base(51 ': 


/• User • 
/• User • 
/• User • 
/• User • 


■ Starting Quanciaer value */ 

• Threshold factor •/ 

■ Comparison factor •/ 

• Octave weighting factors •/ 




buffer, 

prevbyces. 

pravQuact; 


/• Calc ■ 
/• Calc - 
/• Caic - 


Current buffer fullnatt (bycas) >/ 
Bytes sent last frame •/ 
Quantisation/activity for last frame •/ 


double 


cinp_CJarjt : 


/• Calc - 


Current quantiser value quanc */ 



) KlicsEOataRee: 

cypedef struct ( 

KlicsSeqHeader segh: 

KlicsframeNeader fmh; 

Klics£DataRec encd; 

Buffer buf: 
) KlicsERec. 'KlicsC; 
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EngineeringcKlicsCoceiCcmpPic: : KlicsDec2 .a 



© Copyrighc 1993 kljcs Limited 
All richts reserved. 

Written by: Adrian Lewis 



680X0 KlicsDecode code 

Fast code £cr: 

3/2 octave input stream 
2/1 octave output image 



•klics- 
•SlcsJ.a- 
■ Traps. a- 



Data stream readers: 

XDELTA. JfVALUE. SKIPHUFT, XINT 



&addlr, (i*tep,(ptr,(daca,fcbno,£spar« 



bufloec 
beq.a 

buf_set 
bne.s 

Sdopos bu£_get 



andi.w 
add.w 
bra. s 

5<ndpos neg.w 
addq. 1 

Odoneg buf_flet 
dbn« 
bae.s 



fcptr,&data,(bno 

(data.&hno 

9quic 

•6,4sp«re 

idata.ibno 

Sdoneg 

&daca.Lbno 
ispare, fldopos 
efndpea 

&data. (spare 
••J.tbno 
ibno, t spare 
•S COIF, 4 spare 
* 8, (spare 
Swxite 

(spare 
#7, (apart 
Swrica 

(data.(hno 

(•pare.edoneg 

Sfndnag 

(data, (spare 



r it zero write 
; see up count 
: read sign 
it negative -> 



; 5pare»Bbno 
' spar* ANDa mask 
spare'»a9 
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add.w « 
ntg.w 

bra.s 

?£neneg sui^.l 

?wri:e Isl.w 
swap 
add.w 
swap 
add.w 



- 658 - 

Engi.-eer:.-.g:.KliC3Code:CompPicc : KUcsDec2.a 

*8.4spare ; spare-s9 

&3pare 

8wric« 

•7,4spare ; level-s8 

iscap.tspare ; level<<=step 

&scep 

ttscep. (spare 
&scep 

&spare. iaddr 



•addrsdelca 









XVALO 


&dddr,&scep,&pcr 


.(daca. (bno. (spare 


clr.w 
bu{_rinc 
buf.gec 
beq. s 

buf^gec 
bne.s 


& spare 

&pcr,&daca.&bno 
&daca.&bno 

•C.fcspare 
&daca. ibno 
edoneg 


; it tero write 
; sec up counc 
; read sign 

; it negacive -> doaeg 


buf.yec 

dbn* 

bna.a 


bdaca. &bno 
&spare, 9dopoa 
0fndpo( 


; if --spare.' »-l 


move . 1 
suhq.b 
ler.l 

add.w 
bra.s 


(data, (spare 
•7.lbno 
tbno. (spare 
•S007r. (spare 

•vritt 


: spare>data 
; bno-e« 

9para>>*bno 
: spare ANOa mask 
; spare-»«9 


addq.i 
bra.s 


fiwrie* 


; bics-abics 
; bics«3S 


bne.s 


&daca,(bno 
(spar* .edoneg 
efndneg 


; if --spare!=-l 


move. 1 

subq.b 

Isr.l 

andi.w 

add.w 

neg.w 

bra.s 


(daca, (spare 
«7,(bno 
(bno. (spare 
iS007r. (spare 
* 8. & spare 
(spare 
ewrite 


: spareadaca 

; spare>>»bno 

: spare AND« mask 

; st>tz»*Mg 


subq.l 


(7.&apare 


! ievel-=8 


Isl.w 
add?w 


(seep, (spare 
(seep 

(seep, (spare 
(step 

(spare, (addr 


; level«>scep 
; 'addralevel 
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En9ineering:KncsCode:Ccr,pP,ct:KUcsDec2., 



clr.w 
bu£_rinc 
buf _gec 
beo. s 
moveq 
bu£_get 
bne. s 



4«deir.4step.ip:r.ida:a.4bno.4spare 



9dopos buf_sec 



subq."b 
Isr.l 



C'fndpos neg.w 
addg.i 
bra.s 

Sdoneg bufjec 
dbne 



mevn.l 

subq.b 

Isr.l 

andi.w 

add.w 

ne^.w 

bra.s 



iptr.4daca.4bno 
''iata.4tno 

•6. 4spare 
iciaca,4bno 
Sdoneg 

4daca.4bno 
ispare, edopos 
Sfndpos 

sdata.&spare 

•7.ibi»o 

^no, 4spaxa 

»S007r.4spare 

•e.ispare 

ewrite 

4 spare 
♦7. 4 spare 
ewrite 

&daca.4hno 
4 spar*, »don*g 

<daca.4spax* 

«7.(tano 

4too,t»par« 

«S007F.4spar« 

*8,4ap«re 

4apar« 

Swrit* 

•'.4spare 



it zero wrice 
set up count 
read sign 

i£ negative -> doneg 
if — 3pare!»-l 



: sparssdaca 

r bno-«6 

r 3paie»abno 

spax* AND= mask 

spax«->s9 



a — epare!--: 



; aparesdaea 

^ bno-B6 
spara»abno 
spare AND> mask 
spara*a9 



buf_gec 
beq.s 
buf_Bet 
ntoveq 

bu£_gat 
dbne 



4pcr.4daca 

4data,sbno 
Squit 

4data.4bno 
*£.4spar* 

4data,tbno 



&bno,tspare 



: if 2ero eruit 
; skip sign 
; sec up count 



Send 
equit 



•7.ttao 

ipCr.sdata.Uao 
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Engineering: KiicsCode.-CompPic: : KlicjDsc2 .( 



XUm 4bits.. .addr. tstep.iptr.tdaca.tbno 

Noce: half_q is missing 



tni£_rir.c 


4ptr, tdata. ibno 




move . 1 


&daca.dO 


.- resulcsdaca 




&bics.&hno 


; da-=bits-: 


subq.b 


»1. tbno 


; dl-»l 


Isr.l 


&bno,dO 


; re8ulc>>'bno 


clr.l 


dl 


; dl>0 


base 


&bics.dl 


; dl(bits)=l 


subq. 1 


11. dl 


; dl>maak 


best 


<.bics.dO 


; sign? 


beq. s 


9pos 


; it posicive goco pes 


and.: 


dl.dO 


; apply rasX leaving 1< 


neg.l 


dO 


: level-slevel 


bra.s 


econt 


; goco cone 


and.l 


dl.dO 


; apply mask leaving 1« 


Isl.l 


&ecep.dO 


; level<<sacep 


move . w 


dO.taddr 


: 'addr-resulc 


macro 






XIMT 


&bics, ieddr . tscep. iptr . idita . fcbno 



Hardware conpacablc version.- sign aag(lsb->mab) 



buf_rinc 

move. 1 

sub.b 

subq.b 

lar.l 

clr.l 

swap 

Isr?!** 
roxl . 1 

swap 
bcsc 
beq. a 
neg. 1 
Isl.l 



fcpcr.fcdaca, J 

Idaca.dO 

£bica.&bno 

tl.fcbno 

LbQO.dO 

dl 

Lboo 

U>ics, (bno 
il.Lbne 
tl.dO 
tl.dl 

ibno, iahit 

*0.dO 
9pos 
dl 

tscep.dl 



: resulcadaca 

; dl->bics-l 

; dl-.l 

; tefnp>>abno 

; reaultsO 

r use free word 

r bnosbnc.bics 

; countsbics-2 

r shift mab from rejnp 

: inco Isb of resulc 

' for encire magnitude 

restore bno 

sign cast 

if sositive -> pes 
resulCE -result 
resulc<<BSCep 
*2ddr=resulc 



Block data read/write: 
VOID, STZLL. snm, LPFSTIU. 



&x^lk. ty_blk 
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addq.l 
clr.w 
adda.w 
clr.w 
addq.l 
clr.w 


4x_£!U.a2 
la2) 

iy_bU.a2 
ia2l 

i*_blk.a2 
la2) 


; caddr-^x.blk 
; caddr..y_blk 
; caddr»sx_blk 








macrc 
STILL 


tx_blk. ty.blk. (seep 




XVALO 
addq.l 
XVALO 
adda.w 
XVALO 
addq.l 
XVALO 


(a2).&scep.a0,d6.d7,d0 
&xjDlX,a2 

(a2),*step,a0.d6,d?,dO 
iy_£>l)c.a2 

ia2),&st«p.a0,d6.d7,d0 
ix_bllc.a2 

(a2) ,&acep.a0.d6,d7.d0 


; caddr*-x_blk 
; caddr*sy_blk 
; caddir*=x_blk 








macro 
STILLSEND 


&x_bl)c. iy.blk. dscep 




XVALl 
addq.l 

XVALl 
adda.w 
XVAH 
addq.l 
XVALl 


(al) ,&acep,a0,d6,d7,d0 
4x_blk,a2 

ia3) ,iacep,a0,d6.d7,d0 
ay^lk.a: 

Ia2).(sc«p.«0.d6.d7.d0 
&xj3lk.a2 

(a2).&st«p,aO,d6.d7,dO 


; caddr»»x_blk 
; caddr-Ey_blk 
: caddr*sx_blk 



SQID 


tj(_blk . ty_blk , (St *p 




XDELTA 


(a2),tscep.a0.d6.d7.d0 




addq.l 


6x_blk,a2 


caddr-=x_blk 


XDELTA 


< a2 ) , &8Cep , aO . dS , d7 , dO 




adda.w 


&yjslk.«2 


caddr«ey_blk 


XDELTA 


(a2),tscep.aO,d6.d7,dO 




addq.l 


ix_blk.a2 ; 


caddr».x_hlk 


XDELTA 


(a2). (sc«p.aO.<J6.d7,dO 










macro 






LPFSTILL 


Lx.J>lk. 6y_blk. 4sc«p. fcbica 


XIMT 


Lbita. (a2) ,&8Cep,a0.d€.d7 


: Readme (aE baddxl 


addq.l 


Lx_blk,a3 


; caddr«sx_blk 


XIMT 


fctics. (a2).«scep.a0,d6.d7 


; RaadZDC 


adda.w 


4y_blk.aa 


, cBddr.«y_blk 


XIHT 


U3ics. (a2). Cst«p.a0.d6.d7 


: Raadlnc 


addq.l 


fcx_blk, a2 


; caddr*sx_blk 


XIHT 


Uiica. (a2] ,&9Cep,aO,d6.d7 


: Readint 
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Data skippinfl: 



3_SKIP, SENCSKIf 



SXIP4 rUKC 



SKIPHUFT 

sKiPHurr 
skiphutt 
sk:phuft 



a0.d6.d7 

aO,d6.d7.dO 

a0.d6.d7,dO 

a0.d6.d7.dO 

d0.d£.d7.d0 



ENDFUNC 

STILl^klP FUNC 

but_rir.c 
buf_yec 
beq.a 
bsr 

but_rinc 
iski buf_ges 
beq.a 
bar 

buf_rlnc 
«sk2 bu«_y«e 
beq.s 
bsr 

bu£_rinc 
usk3 buf_9«C 
beq.s 
bsr 

Siuct res 



a0.d6.d7 

d6,d7 

9akl 

SK1P4 

aO,d6.d7 

d6,d7 

eaU 

SKIP4 

a0.d6.d7 

d6,d7 

esk3 

SKIP4 

aO.dS.dl 

d6.d7 

9nxe 

SKIP4 



; BUr_INC 
; BUT.GET 
; ir 0 the STOP 

; BUr_INC 
; BOT.GET 
; it 0 Che STOP 

: BOr.DJC 
: BUr.GET 
if 0 Che STOP 

BUF.INC 
BOr.GET 
if 0 Che STOP 



ss.sKiP nwc 



buf.get 
beq.s 
buf_9et 
bne. s 



bar 
buf.riac 
buf.get 
beq.s 
buf.gec 
bne.s 
bsr 

buf.rinc 

buf_gcc 

beq.s 

buf_get 

bne.s 

bar 

buf.rlnc 
buf_oec 
beq.s 
bof_9et 



aO.de. d7 
d6,d7 

d6.d7 

Sskl 

SXIP4 

aO,dS.d7 

d6.d7 

«sU 

d6,d7 

»8U 

SICXP4 

a0.d6.d7 

d6.d7 

«sU 

dC.d7 

9sk3 

SK2P4 

aC,dt,d7 

d6.d7 

enxc 

d6.d7 



Bur_iiic 

BUr.GET 

if 0 Chen STOP 
BUr_CET 

if 1 then VOZO 

BUr.INC 

BUT_CET 

if 0 Chen STOP 

BOr.GET 

if 1 Chen VOID 

BOr.INC 
BOr.GET 

if 0 Chen STOP 
BUr.CET 

if 1 Chen VOID 

BOF.IMC 

BOr_CET 

if 0 Chen STOP 

BUF.CET 
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bar" 
















SCJDSK 




EXPORT 




bu£_rinc 


a0.d6,d7 






dfi.d? 






9skl 






66, CI 




beq.s 


9sk0 






d6,d7 




beg.s 


eskl 


9s)c0 


bsr 


SKIP4 




buf.rinc 


aO.dCd? 


SsXl 


buf.gec 


de.d? 




beq.s 


9sk3 




buf_a«t 


d6.d7 




b«q.a 


9sU 






d6,d7 




b«q.a 


8skJ 


9»k2 


bsr 


SK7P4 






a0,d6.d7 


SsU 




dS,d7 




beg. a 


OskS 






d6.d7 




b«jT» 


9sk4 




buf_9et 


d6,d7 




beq.s 




iaki 


bsr 


SXIP4 




buf.rinc 


a0.d6,d7 


9«lc5 


bu£_9ec 


d6.d7 




beq.s 






buf.oec 


d6,d7 




beq. s 


9sk6 




buf_gec 


d6.d7 




beq.s 




esk« 


bsr 


SKIP4 


6r«t 


rts 






ENDTOJC 





if 1 then VOIS 



: BUF.INC 

if 0 Che STOP 
BUF.GET 

if 0 Chen STILLSD!D 
BUr.GET 

if 0 Chen VOID 



; BUr.IHC 

r BUr.GET 

: it 0 the STOP 

r BOr.CET 

: if 0 Chen STILLSB4D 

I Bor.crr 

if 0 ches VOID 



; BOP.mc 

! BOT_CET 

; if 0 Che STOP 

: BUP.CST 

I if 0 than STILLSE»1D 
BOP.orr 

if 0 Chen VOID 



; BOT_IKC 

: BUF.GET 

: if 0 Chen STOP 

: BUF.GET 

if 0 Chen STIIiSENl) 

BUr.GET 

if 0 c.^en VOID 



Occave Processing: 

DCSTILLO. DOSBISO. OOSTXU.1. 
DOVOISl, OOSTILLSEMDl. 00SZ31D1 



DOSTIIJ.0 FU»C . EXPORT 
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a0.(36,d7 
d6,d7 



BUF_crr 

If 1 the srr: 



jnove. : 

STILL 

XVALO 
addq.l 
XVALO 
adda.w 
XVALO 

addq.l 
JT/ALO 

bsr 



dl,a2 
M.d5.d3 

ia21 ,d3.a0.d6.d7.d0 
M.a2 

(ai) .d3.*0,d6.d7.d0 
d5.a2 

(aL2),dJ,aO,d6.d7.dO 
M,a2 

(a2) ,d3.aO,d(.d7,dO 



caddrrbaddj 



caddr-=x_t5ik 
caddr.-y.blk 
caddr»=x_bl)c 



ENDFUNC 
DOSENDO rONC EXPORT 



buf.rinc 
buf.oet 
bne.s 
res 

move. I 
buf.gec 

b«Q.W 

buf_oec 
beq.w 



XDEXTA 
addq.l 
XDEXTA 
adda.w 
XDELTA 
addq.l 
XDELTA 



a0,d6.d7 

d6,d7 

Scont 



al.a2 
d6.d7 

«99 

d6.d7 
evd 

•4.d5.d3 

(a2).d3.a0.d6.d7,d0 
«4.a2 

(a2J .d3.aO,d6,d7,dO 
d5.a2 

Ia2).d3.a0.d6.d7.d0 
•4.a2 

(a2),d3.a0.d6.d7.d0 



: BOF.UIC 
BUF.GET 

if 1 chea continue 

caddrabaddr 
BOF.CET 

if 0 then STILl^ENO 
BOT.GET 

if 0 thea VOID 



; caddr-.=x_^Ik 
; eaddr*sy_blk 
; caddr»ex_blk 



bsr 



SENDSKIP 



; STILLSEND 

XVALl 
addq.l 
XVALl 

XVALl 
addq.l 
XVALl 



•«.d5,d3 

(a2),d3,a0,d6.d7.d0 
•4.a3 

(a2).d3.a0.d6.d7.d0 
dS, a2 

(•2l,<13,a0,d6,d7,d0 
• 4.*2 

la2) ,d3,a0,d6.d7.d0 



; caddx*rx_blk 
r caddx— y.blJc 
caddr.=x_blk 



SS_SKIP 
•4.d5 
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(a2 

t4.t2 



move.l 
add.l 
STILL 
bsr 

buf_rinc 



al,a2 

&addr.a2 

V4.d5.d4 

STIU.SXIJ 

a0.d6.d7 



caddrsbaddr 
caddr*=acl£lrs(l) 



al,a2 

taddr.a2 

•4,d5 



move. 1 
add.l 
bu<_9et 



d6.d7 

enext 

a:.a2 

&addr.«2 

dfi.d? 



S7ILLSi31D •4.d«.d4 
bar SS_SMP 
bu<_rinc aO , d6 , d7 



; BOF.GET 
; if 0 the STOP " 
; caddrsbaddr 
. caddr*saddrsri) 
BOr_GET 

it 0 Cb«n STILLSEND 



bu£_riac aO.de.d? . buf djc 

bu«_s.t d6.d7 . BOrZcET 

bne.a Scont ,. a ^ che COOT 



econt move.l 



; caddrabaddr 
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icsCrde :Coir,pPict ; K:ic5Dec2 . , 
•■ caddr.-addrsfOI 



3c still: 

DOSTILLi 
IXSTIU.1 



8(a3) 

121*:) 



beq.w 
nove . 1 
add.l 



&addr 

d6.d7 

9 next 

al.a2 

&addr. a2 

d6.d7 

eas 

d6,d7 



M.dS.d* 

SOWSKIP 
9 Tine 



: BUr.GET 
; it 0 the STOP 
; caddT«baddr 
; c«ddr»«.addrsll| 
BUP.GET 

if C Chen STILLSDTO 

BUP_3rr 

it 0 Chen VOID 



STILLSEWD 
bsr 

buf_rinc 



•<.d5,d4 

SS.SX2P 
a0.d8.a7 



rosoro: rune 



Snxt 
flcont 



move. 1 

add. I 

buf_Bet 

beq.w 

bui-oet 

beq.w 



a0.d6,d7 

d6,d7 

Scone 



al.aZ 
la3).a: 
d6.d7 
esa 
d6,d7 



evd 



Bur.iNc 

BOr.CET 

if 1 the CONT 



; caddrabaddr 

; caddlrosaddrs (0] 

• BOT.CET 

if 0 Chen STILLSEND 

BUF.CET 

if 0 then void 



buf_rinc 

DOSENDl 
OOSQJDl 



«e.di,d: 

a0.d6.d7 

4<a3) 

8<a3) 
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bu£_rinc aO.de.d"; 
DOSTIllSEOTl 4(a3) 
DOSTIL-lSEOTl 8(a3) 
D0STIU.SEND1 12la3) 
DOSTILLSENDl a€(a3) 



VOID »8,dl 

DOVOIDI 4(a3) 

OOVOIDl e<a3) 

DOVOIDI 12(43) 

DOVOIDI 16 (a3) 
rca 

ENDFinJC 



Sub-band hg 



•J.al 

a4.al 
O0STIU.3 



I caddz=baddr 



: baddx«s3 (gh band) 



addq.l ffl.al 

bar DOSTIU.0 

sob.l a4,al 

addq.l ae.al 



; baddr*82 (gg band) 



macro 
UVSZMDO 

Low.paaa 

buf_rine a0.d6,d7 ; BOF.INC 

buf_gtc d6,d7 ; BOr.CET 

beq.w Oaubs ; if 0 tben process auhbands 
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eaddr-:2 (gh oanc) 



Sub-band r.g 

subq. 1 
add. 1 
bsr 



• 2.al 
«4.al 

DOSENDO 



addg. 1 
bsr 
sub.l 
a-ldQ.l 



«2.al 
DOSENDO 
a4,al 
• «,al 



: boddr.aZ [gg band) 



Decoder functions: 
Klic»2DlScili. KlicsJDlSend 



KlicsJDlScill rUMC 
• Klics2DlStill (short 'dst. Ions size_x. long si2«_y, long Ipfbita. short ' 

PS RECORD S 

dst DS.L 1 

si2e_x DS.L 1 

si2e_y DS.L 1 

Ipfbits DS.L 1 

norm* DS . L 1 



dara 



DS.L 
DS.L 
DS.L 



x.linc 
y.iacO 
y.incl 



DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
EOO 
□«3K 



dO/dl - spar* 
d3 - step 0 (HH) 
d3 - sttp 0 
d< - Ipfbits 
d5 - y_blk 

d6 - data (bit stream) 
d7 - bno (bit pointer) 



; X counter cexininati( 
; X termination increi 
; y counter increment 
; y co'jnter increment 
: y counter tsrminatic 
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- ptr ;bic tuffer) 

- baddr (fclocX address) 

- caddr (coeff address) 

- x_lim 

• x_li.nc 

- y_incO 

link a6,fLS.LSit* 



Load Bit Buffer 



movc.l 


PS.dacalaS) .aO 


move. i 


(aO) .d6 




PS. bno (a6 ) , aO 


move. 1 


(aO) ,d7 


move. 1 


PS.pcr(a6) ,aO 




(aO).aO 


Up Block 


Counters 


raove.l 


PS.dsc(a6).al 


move.l 


PS.aize_x(a6) ,dO 


add.l 


dO.dO 




dO. LS.x_linc(a6) 




PS. 9izely(a6) ,dl 










movi.l 


dl.LS.y llsi(a6) 




d0,d2 


add.i 


dO.dO 


mova.l 


dO.dS 




94.(13 








dO . LS . y.iscO 1 a6 ) 


add.i 


dO.dO ~ 




d2,d0 




dO.LS./_inclla6) 


move.l 


PS. norms (a6),a2 


move.l 


<a2),d2 




4(a2).d3 




PS.lpfbit«(a6),d4 


move. 1 


LS.x_linc(a6).a4 


move. I 


LS.y_inc0la6),aS 


move.l 


a4.a3 


add.l 


al.aJ 


UVSTILLO 




CVSTILLO 




add.l 


aS.al 


CBIP-I 


LS.y_liinia6) ,al 


bge.w 


eiasc 


sub.l 


•16, al 


UVSTILLO 




UVSTZU.0 




sub.l 


aS.al 


cnp.l 


a3.al 


blt.w 


tx 


add.l 


LS.y_incl(a£),al 


emp.l 


L5.y_liB(a6).al 


blt.w 





; aO=&daca 
; dataa'aO 

: aOs&inaak 

: aOsfcper 
aOsptr 



; alsiaage 

; dOasize.x 

; in shores 

; x_linc»l row 

; dlsai2e_y 

; dl'adO (area) 

: dl»ima«e 

; disdO (1 row) 

; d0*a2 (2 rowa) 

; y_bl)(>dO 

; yj3lk-»x_blk 

; d0*a2 (4 rowa) 

; y.incO-dO 

; d0**2 (8 rowa) 

; d0->d2 n rows) 

; y.lnclsdO 

; CetNerm pointer 

: read normal 

; read normal 

; read Ipfbits 

: read x.l.vnc 

; read y.incO 

; x_li»>»x_linc 
; x.liawsbaddr 
; process OV bloc)c 0,0 
; process UV bloc)c 1,0 
I (2) addr(0] *sy_iac 
; (2*) addr(0]-lifflit? 
; it half height 
; pointersbl)c<0, 1) 
process UV bloclc 0,1 
process UV bloclc 1.1 
(2) addr(0]-»«y_inc 

(2-) addrtOl-lindc? 
(4) if less then loopX 
(2«) addr[0}-'>y_inc 
(2«) addr(01-limie? 
(4) if less then loopy 
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Save Bic Buffer 



PS.daca(a6) .32 
d6. la2l 
PS.bnofa6l , a2 
d7, (a2) 
PS.ptr(a6),a2 
aO. ia2) 

(a7)»,d4-d7/a3-a5 



: 3par«<idaca 
: update daca 
: sparesttno 
: update bno 

spare>4ptr 

update ptr 

restore reflisters 
remove locals 
return 



ENCrONC 

Kiics2DlSend FUNC LXPORT 

* Klics2DlSend I short 'dst. long si2e_;c, long si2e_y, short •norm*, < 

PS FICORD 8 

dst DS.L 1 

size.x DS.L 1 

si2e_y DS.L 1 

norM DS.L 1 

per DS.L : 

data DS.L 1 

bno DS.L 1 
EMOR 



x_lim 
x_linc 



RECORD 

DS.L 

OS.L 

DS.L 

DS.L 

DS.L 

EOO 

£NDR 



dO/dl - spare 

d2 - step 0 (HH) 

d3 - step 0 

d4 - y.incO 

d5 - y_£)lle 

d6 - data (bit stream 

d7 • bno I bit pointer) 



X counter tanninacion 
X terair<acian increment 
/ counter increnenc 
y counter increnenc 
y counter termination 



1 row 
4 rova 
7 row* 
area 



aO ' 



- ptr 

. baddr 

- caddr 
■ x_li« 

- x_linc 

- y_lim 

link 



(bit buffer) 
(block address) 
(coeff address) 



Load Bit Buffer 



PS.daca(a6),aO 
(aO) ,C6 
PS.bno(a6) ,aO 
(«0) .d7 



: aO>&daca 
; datas'aO 
r aO«4jBask 
; maak**aO 
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eiast 





rS.ptr( as) , aO 


; aCsiptr 






; aOaptr 


Sec ITp Blcck 








PS. dit I aft) , al 






PS . size_x ( a6) . dO 


: dO=si2e_x 


a»a.l 


dO, dO 


: in shores 


move . ^ 


dO.LS.x_lincfa6l 


; x_lincsl row 




PS.si2e_y (a<) , dl 


; dl»aize_y 


muis.'w 


dO.dl 


: dl*sdO (area) 


add.i 


al.dl 


; 'dl^simaoe 






•■ y_l imedl 






; d2ad0 (1 row) 






; d0*»2 (2 rowB) 






; copy to d3 




, subcracc xjbl)( 


add.i 


doidO 


; d0*s2 (4 rows) 


nove. 1 


dO,LS.y_incO(«6) 


; y_incO=dO 


add. 1 


dO.dO 


; d0*=2 (8 rows) 


sub. 1 


dZ.dO 


; dO-sd2 (7 rows) 


move . 1 


dO.LS.y_incl(a6) 


; y_incl»dO 


nova. 1 


PS.non&9la6l ,a2 


; GecNcm pointer 




<a2),<32 


; read nonnal 


luove.l 


4(a2) .d3 




mov«.l 
meve.l 


LS.J(_linc(a6) .A4 


read x line 


LS.y_incO(a6).d4 


; read y_jncO 


move.l 


t^.y_lijn(a6;,*5 


; read y_lim 


mov«.l 
add.i 


a4.a3 


j^liiBBX.l inc 


al.a3 


; s^lijnTBbaddx 


uvsaiDO 




; proceea C^' bloclc 0,0 


CVSOiDO 


d4,al 


; proceaa UV blecJc 1,0 


acU.l 


; (3) a(3dx(0]«>y.inc 




aS.al 


; (2) addlr(0]-liiuc? 




tlasc 


; if half heiffhc 


suto.l 


•16. «1 


; poancarsbll((0, 1) 


QVSQ4D0 






UVSENDO 


d4.al 




St sub.l 


( 2 ) addr i 0 ] ♦ ay inc 




a3.al 


; (2) addr[01-liBic? 


bu!w 


0x 


; (4) it leas Chen loopX 


add.i 


LS.y_ixiclla6).al 


: (2*1 addrlO-.try-inc 


blt.w 


aS.al 


; (2)' addr [ 0 ] * lijtiic ? 


ey 


(4) if .ess Chen loopt 


Saw Bit Buffer 




move.l 


P5.dac«(a6) ,a3 


; 9pare>idaca 




d6. (a2) 


; update data 


move. i 


PS.bno(a6) ,a2 


; spares .bno 


move.l 


d7, (a2) 


; update bno 


raove.i 


PS.ptr(a6),a2 


; 9pare*«pcr 


move.l 


aO. (a2l 


1 upaata ptr 


movan.l 


(a7)»,d4-d7/B3-aS 


; restore registers 


unlk 




; remove locals 


rts 




: return 


ENSFUNC 
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i.ngineer :n;::<:irsCode:Comp?icc : KiicsOeci . a 



y.iicsjD2sti:i 



KliCsJDJSt ill (short 'isz. ;cr.5 ! 



. Isr.g si:e_y, l=ng IpJtics, shor: -noou 



DS.L 
DS.L 
DS.L 



RECORD 0 . DECR 

DS.L 1 

DS.L 1 

DS.L 1 

OS.L 1 

DS.L I 

OS.L 1 

DS.L i 
EOO 
ENDR 

dl - spar« 

- seep 2HK 

- seep X 

- scap 0/lpfbics 

- /_bilcO,y_blkl 

- daCA (bic stream) 

- bno (bic point ax ) 

- per (bit bufiar) 

- baddr (block address) 

- caddr .teoett address) 

- addrt (craa addresses) 

- x_liin (X countex terminacioi 

- Ipfbits/scep 0 



; y inter-block increment 2 rows - 4 

; y inter-block increment 4 rows - S 

; X counter increment 16 

; X counter termination row.start*' 

r X cexminacion incrament 1 row 

; ■/ countex increment 7 rows 

y counter termination area 



Load Bit Buffer 



mova. 1 
move. 1 



PS.datB(a6).aC 
(aO) ,d6 
PS.bnols6) .aO 
(aO) ,d7 
PS.ptr(a6) .aO 
(aO) ,aO 



Set Up Block Counters 



oova.l 
meve.l 

nove.l 



PS.dstla6).al 
PS.sxze_x(a6).dO 
• 16,LS.x_irK:(a6) 
dO.dO 

dO.LS.x_linc(a6) 
PS.tisa_y(a6),dl 
dO.dl 



; naska'aO 
; aO«&pcr 
! aOspcr 



; in shorts 
; x.lijical row 
r dl>size_y 
: dl*«dO (area) 



Copied from 10340491 on 04/01/2005 



wo 94/233*5 



PCT/GB54/00<T7 



- 673 - 

Engineering :KlicsCode:CompPict:KlicsDec2. 



move.l 
add.l 
move.l 
subq. 1 
mov«. 1 
add. I 
add. : 
n>ov«.l 



move. 1 

move.l 
mcve.l 
nove.i 
move.l 
move.l 
swap 



al.dl 

dl.LS.y_liin(a6) 

dO.cU 

dO.dC 

dO.dS 

• 4.d5 

dS.LS.y.blkOiaC) 

d0,d3 

dO.dO 

d0.d4 

#e,d< 

d4, L3.y_bl)«l(«6) 
d2.d0 

dO, LS.y_inc(a6) 

PS.ncrm«(a6) ,a2 
(a2i .d2 
<(a2),d3 
8la2).a5 

PS.lpfbit»(a6).d4 
05 

I^.y_bl)tl(a6l,d0 
dO.dS 

PS.9ub_tab(a«) ,«3 



dl^-iimase 
y.liiiisdl 
d2sd0 (1 row) 
dO's2 (2 rows) 
C2py CO d5 

y_blk: subtract x.blJc 
save y.blkO 
d2*sdO (3 rows) 
d0«s2 (i rows) 
copy CO d5 

y.blk: subtract x_blk 
save y_blkl 
d0-.ad2 (7 rows) 
y.incsdO 

; GetNoriB pointer 
; read norraal 
; read nonul 1 
; read nomal 0 
; read Ipfbics 
! y_blk=OOXX 
; read yjblkl 
■ d5./j5lk0/l 
a3saddrs 



add.l 
Cow.Paas 



Sub-band gh 
bar 



add.l 
Sub-band gg 



; caddrsbaddr 



add.l 
cinp.l 
blt.w 
add.l 

aqp.l I 
blt.w I 

Save Bit Buffer 



PS.data(a6).a2 
d6. (a2) 
PS.faoo(a6),«2 
d7, (*2) 
PS.ptria6).a2 
aO. (a2l 



: (2) addrfO)*.^.iac 
12) addr(0]-limlc? 

' (4) if leas then loopX 
(2*) addr(0)*n'_iac 
<2^) addrtOJ -limit? 
(4) if leas cben loopy 



; spare>tdata 
; update data 
r sparectbno 
: update bno 
Bpare«4ptr 
uodace ptr 
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:sCcdc:CompPic::KlicsDec2., 



a7)..d4-d7.'a3-, 



rescor* registers 
remove Izais 
return 



'i<lics3D2Send (short 'dst . long siie_x. long si2e_y. short •norm*, unsigned long 



PS 
dst 

size.x 
Sise_y 

Ptr 
data 
bno 



sub_ 



DS.L 
DS.L 
OS. L 
DS.L 
DS.L 
ab DS.L 
OJDR 



DS.L I 

DS.L 1 

DS.L 1 

DS.L 1 

DS . L 1 

DS.L 1 
EOO 
ENDR 

- apart 

- y_blkl 

- step 2HH 

- step 1 

- step 0 

- y_blkO 

- data (bit stream) 

- bno (bit pointer) 



; y inter-bloc)c increment 
r y intar-bloc)c increiaanc 
; X couater increment 
; X counter termination 
I X tannxnation incraownc 
y counter increment 
y counter tcrvination 



row_starc« 
1 row 
^ rows 
area 



• ptr 
- baddr 

' addrs 



(bit buffer) 
(bloc)c address) 
(coaff addraas) 
(tree addressas) 

(X counter termination) 



Load Bit Buffer 

move.l PS.data(aC) ,aO 

move.l (aO),d6 

nove.l PS.bB0(a6) ,aO 

move.l (aO),d7 

mova.l PS.ptr(a6),aO 

nove.l (aO),aO 

Set Up Block Counters 

move.l PS.dst (a6) .al 



maska'aO 
aO«&ptr 
aOapcr 
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PS. size_x(ae 1 .dO 


move. 1 


• U.lS.x inciaS) 


add.l 


dO.dO 


move. 1 


dO,LS.x_lincta6) 


move. 1 


PS.sije_y!a«i .dl 


nuls.w 


dO.dl 


add. 1 


al.dl 


nove . 1 


dl.LS.y_:im(a6) 






add?i 


doidO 


move . 1 


dO.dS 


SMtq. 1 


*4.d5 


move . 1 


d5,LS.y_bl)cO(a6) 


add.l 


d0.d2 


add.l 


dO.dO 






subq.l 


I8!d4 


move . 1 


d4,LS.y_blkl(a6) 




d2,d0 


reeve. 1 


dO.LS.y_inc(a«) 


move 1 
















movel 


LS.y_bl)cl(a6) ,dl 


rnove.l 


PS.flub.cab(a6).a3 


aUd?i^ 


LS.x_line(a6> .a4 




ai.a4 


_P«se 




buf_rinc 


a0.d«.d7 


bu<_0ec 


de.dl 


beg. If 


Siutoa 


move.l 


ai.a2 


son 


«t,dl,d3 
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En5l.^eer zng : .Kl icsCode : CompPicc : .><lic3Dec2 . a 



in shcrts 
x_ lines 1 row 
dJs3ize_y 
dl'adO (area) 
dl»simage 
y.limsdl 
d2:d0 (1 row) 
dO'-2 (2 rows) 
copy to dS 

y_blX: suijciacc x_blk 
save y.bikO 
d2«>d0 (3 rows) 
dO*=2 (4 rows) 
cany CO dS 

yj3l)c: subcract x_bl)c 
save y.blJcl 
d0»rd2 (7 rovs) 
y_incsdO 

CetNoxTS pointer 
read normal 
read normal 1 
read normal 0 
read y.blJtl 
a3>addrs 



; BOT.IMC 
: BOF.GET 

: if 0 then process aubbanda 
caddrabaddr 



Sub-band gh 
eiubs bar 



Sub-band hg 



add.l 

bie!» 
add.l 
ov.l 
blt.w 

Saw Bit Buffer 



LS.y_inc!a6),al 
LS.y_Iijn(a6),al 



(2) addr(0)»«x_iac 
(2) addr [01 -limit? 
(4) if lass Chen loopX 
(2-») addr fO) »«y_inc 
(2-») addrlO] -limit? 
(4) if less then loopy 
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move. ; 
move. ; 



Engineer 

c6, laJj 
FS.bnoia6).e2 
d7. ia2) 
PS.pci.iaei.d2 
aO, ia2) 

(a7),,d4-cn/e; 



.-.g : KiicsCc=e:Ccn\pPicc :KlicsOec2 . 

62 : spare*&daca 

update data 
spareiitno 
update Pno 
spare»4ptr 
update ptr 

restore registers 
remove locais 
return 
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Sngineerir.5:KlicsCode:CcnipPicc :KlicsDec.c 



wriccen by: Adxian Lewis 



• Importing raw Klics binary files 

• Stand-alone version 

tinclude 'BitsJ.h* 
*i include 'Xlics-h* 
•include 'KiicsHeader.h* 

cypedef char Boolean; 

/• If bool true the negace value •/ 

• define negif (bool. value) ( (bool) ?-(value) : (value) ) 

extern void HaarBacJcward( ) ; 

extern void Daub4Baci(ward( short 'daca.int size[2J,inc oct src) ; 
extern voxd TescTopBackwaxdl short 'daca-int 8i»et2J,ine oct srci ; 
extern void Te8tBac)cward( short "data.inc sizeI2J,inc occ.arc) ; 
extern void KLICSCCKAKNEL I short 'dat. long occs. long aixe x. long s 
/• Use the bit level file macrot (Bits2.h) •/ 
." buf_use; •/ 

/* Huff»&n decode a block */ 
^define HuffOecLevdev.buf ) \ 

lev(01sHuffDecoda(buf )) \ 

lev (DrHuff Decode (buf); \ 

l«vl2J.HuffDeeode(buf ); \ 

1 ev ( 3 ]= Hu f f Decode ( buf ) ; 

/• Fixed length decode hloc)e of integer* •/ 
tdefine IntDecLevdev, lpf_bits,buf ) \ 

levfO) = lntDecode(-lpf_bita.buC); \ 

levtlJ»lntDecode(lpf_bita,bof ) ; \ 

lev(2)»lntDecode(lpf_bit8,buf ) ; \ 

lev[3]«IntOacode(lpf_bita,buf ) ; 

/• Reverse quantize difference block •/ 

•define RevOntOelta (new.old, lev.shif t I \ 

newfO] sold t 0} •( lev(0)«8hif t ).( lev(O) :»0?negif( lev! 0)<0, ( l<<shif t ) -1> 
new 1 =oldtl)»(levCl)«shilt).(lev(l]!.0?negit(lev(l)<0. (a«shilei-l>; 
new(2)=old(2)»(levI2)«shift)-(lev(2) !-=0?neyif ( lev(2 J <0. (:«shift) -l>: 
newf3)=old(3].(levt3)«8hilt).(levI3) !=0?negif (lev(3J<0, (l<*shilt) -1>; 

/• Reverse quantise block •/ 

idetine RavOot (new, lev, ahi<t) \ 

new|0)»(levrOJ«shi<t)»(lev(0)!.0?negif (levr01<0, (l«shift) -1»1) :0) 
new(l)-(lev(lj«9hlft)*(levflji.0?negif41evflj<0, (i«9hift) -J»l) :0) 
new(2)-llevl2)«8hift)*(lev[2J !»0?negif (lev(2J<0, (l«8hifc) -1»1> :0) 
new(3lB(lev(3)«ahift)i.(levC3]!»0?negif;iev{3J«0, (l«ahift) -1»1) :0) 

»define RevCntLPF (new, lev, shift) \ 

new(0).(lev|0J«shift)^<(l«9hift)-l»l»; S 

new(l).(lev(l)«8hilt)-»((l«shifc)-l»l); \ 

new(2]c(lev(2}«shift)*((l«ahifc)-l»l) ; \ 
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ingineering:KlicsCode:CcnipPic; : KiicsDec.c 
new(3).n«v(3i<<shift).( (i««shii:. : 
Read a difference blcck anc update memory •/ 

RevCntDtU*(new,old,iev.3hj£tl \ 

PutDaca I addr . new. dsc ) ; \ 

.-node ( cc t ; s oc 1 s = 0 ?>l_STO P : nnode : 

/• e.ead a block and update memory •/ 

• eefir.e DoXfer (addr. new, lev. dsc, shifc. mode , occ . rjnode. but ) \ 
Kuf fDecLevdev.buf ) ; \- 
RevCnc inew, lev. shxf :) \ 
PucOaca laddr, new. dac ) ; \ 
ir.ode(oct)=cccr=0?M_rrOP:nmode; 

/• Function Name: IntDecode 

• Description: Read a ince^er from bit file 

• Arguir.ents: bits - bits/integer now signed 

• Returns: integer value 



short Int Decode (short bits.Buf buf) 

inc i, lev.O, masksl. 

Boolean sign: 

/• Hardware cenpacatble version •/ 
buf_rinc(buf ) ; 
sign«buf_get (bull ; 
£or(iB0;i<bic9-l;i*») ( 
buf.rinc (but) : 

if (buf_sec (buf) ) lev !■ maak> 

) 

if (sign) levs -lav; 
return ( lev) ; 



/• Function Name: Huff Decode 

• Description: Read a Huffman coded integer from bit file 

• Returns: integer value 



short h'v:fio«coda(Buf buf) 



short lev-0. i; 
Boolean neg: 

/• Hardware compatatble version •/ 

buf_rinc(buf ) ; 

if (buf_gec(t>uf )) ( 

buf_rinc(buf); 

n»g»taif_get (buf ); 

do ( 

bui_riBC(bu«); 
lev*.*; 

) while (lev<7 At ! (buf_get ibuf I ) ) 
if (!(buf_gec(bu£))) ( 

fordevsO, ia0;i<7;i*») ( 
lev<«sl; 

buf_rinc(buf ) ; 



Copied from 10340491 on 04/01/2005 



CI lOCTtTi ITT Pucrr lotn C 



wo 9403345 



PCr/GBW/0WT7 



- 679 - 



Engineering: KIic£Code:CompPicc ; KlicaDec.c 

^ if (Dof_gec (buf ) ) lev**; 

) 

i«V*»8; 

) 

if (neg) lev= -lev; 

) 

recurr. ( lev) : 



Function Name: KlicsDChannel 

Description: Decode a channel of in\age 

Axffumencs: dst - destination mencry (and old for videos) 

octs, size - octaves of decooipoeition and image dimensions 

normals - HVS weighted normals 

lpf_toita - no o£ bits for LIT integer (image coding only) 



d Klic«D«cY( short 'dst, int octs, int 3i2e(2J, KlicsFrameHeader -frmh, 
KlicsSegHeader 'seqh, Buf buf) 

int oct, mask, x, y, sub, steps2<<octi, bl)«(4], mode (4], ba8e_inode. ( f r7nh-> 
Blk addr, new, old, lev; 

for(ys0;y<9iietlj;y*satep) 

for(xsO;x<size(0] ;x*aatep) 

for(aubB0;sub<4;sub*-») ( 

mode [octaocta-1 1 ■base.node; 

if (aubs'O) inod«(octaoeca-l] !■ N.LPP; 

nva9kB2<<occ; 

do ( 

CetAddr(addr,x,y, sub, oct, size. mask) ; 
switcb(ooda(octj ) ( 
case K_VOZS: 

CetOata (addr, old, dac); 

if tBXkZero(old)) mode {oct )=M_STOP; 

else ( DoZeroCaddr.dst.moda.oct); ] 

case M_SBWDIM_STILL: 
buf_ri&c(buf I; 
if (buf_get (buf ) ) ( 
buf_riac(bue); 
if (b«<_Bee(buf)) ( 

DoZero ( addr. dac, mode, occ ) ; 
) else ( 

DoXfer I addr , new, lev, dst . frmh-xjuant izer ( octs -oct ). mode , oct , M_S" 

) else 

modeloctJsM.STOP; 
break; 
case H_SEND: 

bu£_rinc(buf ); 
if (buf_set(buf ) ) ( 
buf_rine(buf i j 
if ( buf .get I buf )) ( 
bu(_rinc(buf) ; 
if (buf .get (buf ) ) ( 

CetDate I addr , old. dst I ; 

DoXf erOalta laddr.old.new, lev.dst, fzTnh->quantizer(octs-oct] 
) elM ( 

DoZero(addr,dst.inode,octi ; 

) 

J els« ( 

DoXf er ( addr , new . 1 ev . ds t . f rniL •>qu*ntizerloct9-octl, mode , oct , M_S: 
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) elae 

nwdeloctlsM STOP; 
break: 
caa« M.STILL: 

buf_rinc(buf) : 

if :but_gec (buf ) ) • Doxf er I addr. new. lev.dsc . f rnvh->q\janci :er (oc;s -occ I ,: 
else mode(oc;)=«_STOP; 
break: 
case M_LPriM_STILL: 

IntDecLev (lev. seqh->preci3ion- Jrmh->quanciter (01 .but) : 
RevOntLPF (new, lev. f n«h->quanc iier 1 0) ) ; 
PucDaca(addx.new.dsc I : 
modefocc) »M_001T; 
break: 
case M_LPFIM_SQJD: 
buf_rinc(buf ) ; 
it (buf_gec (but)) ( 

CetOaca (addr. old.dat ) ; 

HuftDecLev (lev, bull; 

RevOntDelta (new, old. lev, f nnii->cuant xzer 10) ) ; 
Putoaca ( addr , new , dsc ) : 

» 

ino<Je(occ)=H_OUlT; 
bre«K; 

I 

9wicch(mode(octl ) ( 
ca»e M_STOP: 

StopCouncera (node, occ.nask, blk. x.y.occs) : 

break: 
case M.OUIT: 

break: 
default: 

DownCouncers( mode. occ. mask. blk) : 
break; 

) 

) while (n>o<ie(octJ!=M_OOIT); 



void XlicsOecUV( short *dst, i.nc occs, int 9ize(2], KlicaFrameHeader 'frmh, 
KlicsSeqHeader 'segh. Buf but) 

( 

inc occ. mask, x, y, X, y, sub, scep*4«occs. blk(41, inode[4|. base_modesi 
Blk addz. new. old, lev: 

£or(yBO:Y<sizeU) ;y»sstepi 

£or(X-0;X«sixe(01 ;X-.8tep) 

£or(ysy:y<ai»e{lI (t y<y->acep:y*>8Cep»l ) 

for (x«x;x<aize(0] it x<X«9cep:x«>scep»l) 

for (subs0:aub<4;aub**) { 

mode (occ>oeta-li «baae_riode: 

if (sub-sO) nodefocc'octs'll (■ M.LPF: 

inaska3«0CC; 

do ( 

CecAddrladdr.x.y. sub, occ, size, maak) ; 
svieeb(inode(oct) ) ( 
case I1.V0ZO: 

GecOeca(addz.old.dsc) ; 

if (filkzerelold) ) mode(oce)'M_5T0P: 

else ( OoZerc(a<ldr,dsc.iBod«.oet); ) 

break: 
case >I_SEJJDIM_STIU.: 
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but.rinc itsuf ) ; 

if :buf_3ec (buf ) ) ( 

bu!_rinc(fcuf ); 

if (i>u*_a«c (but) ) ( 

Dozero (addr.iist ,mcce. oct ) ; 

I else ( 

^Xfer (addr.new. lev, est . fr.-nh->quant jzer (occs-ccc ] .mode, occ . M_S 

I else 

mode (occ) E.M.STOP.- 
break; 
case M.SEND: 

buf_rinc(bu£) ; 
if (bui_get(buf ) ) ( 
buf_rinc(bu£); 
if :buf_aec (buf) ) ( 
bu£_rinc(buf ) ; 
If (bu£_gee(bu«)) ( 

G«cDaca(4ddr,old.dsc) ; 

DoXf erDAlca (addr, cld.nsw, lev.dst , f rmh->quanci2er (occs-oct ] 
) else ( 

DoZero ( addr , dsc, iTod«, occ ) : 

) 

} else ( 

DoAfeKaddx.new. lev.dsc, f rmh-xjuantiier (octs-oct ] , nioda , oet . M_S 

} else 

mode (oct 1 sM.STOP: 
break: 
ca«e M_STXLt: 

e«f_rinc(buf ) ; 

if (buf_gec (buf ) ) ( Doxfer(addr.new, lev.dsc,fzTTih->quantizer(oecs-oec],i 
elae mode (oct) ^M.STOF.- 
breaJc; 

case M_LPFIH_STILL: 

intDecLevdev, aeqh->precisicn-fnnh->QuanCi2ertO) ,bul) ; 
RevOntLPr (new, lev, fCTih->quanci2er(0) ) ; 
PutOaca(addr.naw,dsc); 
mode ( oct ] sM_OUZT ; 
break; 

case M_l.PFIH_SEMD: 
bu£_rinc(but) ; 
if (bu£_Bac(bu£) ) ( 

Cec0aca(addr.old.d9C); 
HuffDecLavdev.buf) ; 

RevOncOelca (new. old. lev. (rmh-xTuant iter (0] ) : 
PutOaca(addr,new,dac) : 

} 

) 

switch (node (occ)) ( 
case M.STOP: 

StopCounters (inodc, occ ,ma9k. blk. x. y , occs ) ; 

break > 
case M_ODIT: 

break; 
default: 

Do%mCountars (node, occ. maak. blk) ; 
break; 

) 

«hile (mode ( oct 1 !aM_0OXT)> 
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/• Pjncticr. Name: KlicsOecode 

." ' -° •■■^ ( ie I crans fenced image 

Argumencs: src - descinatior. result 

' D=r„rr,«. '^t^ ,1 t Tans 1 omed desc mat isn memory land eld for videos) 

Returns: whether this £rajne was s)cipped 

extern void KLCOPYlshort 'dst. short 'src. lono area): 

extern void klhalf (short -dst, short -src. Ions' size 0. long siie IJ- 

v'o^d l^ir«r?|f?f;?^:" *^ort'„or,3(4)( 

extern void W.ICS2E1ST1LL( short 'dst. long size x, long sire_y, long lofbits 

extern void ia.ICS3C2STlLL( short -dst. long siielx Ion? si,":^ long Ipibits 

extern void KLICS2D1SENL( shore -dst. long size.x. long sizej^ shcr? norm ('i [ 

0x1 
0x2 

id KlicsDecodel short •sre(3), short •dac(3), KlicsSeqMeader 'seoh, KlicsPranwH 
long channel, i; 
shorc norma (4 I (21 ; 
unsigned long syncl, syncS; 

tor(i.0;i<4;i.»«) f 

nomifi] IO]»(l«<fnnh->quanti»er(i)-l)-l; 
nonns(iJ |lj-fr»h-><ju*atizerjij ,• 
buf_rinit (buf ) ; 
it (0!«(£lag8tflag_tre*)) { 

syncasGecTimerValueitsyncl); 

ior(ehAnnel=0;chanBel<aeQh->channels;ch«nael#*) ( 

ine ai*«f2)»(se<ih->8«<iuence_sixefOJ>>(channel==0?0:a«qh->8ub sampl 
seqh->seauence_si xa ( 1 ] » < channe 1 ..0 ?0 : aeqh-> aub.sanpTe [ID 
tre«_siie(21 = lsixe(0J»scale(0J,8ixaflJ»»cal«(0]). 
oct8»i»gh->octavea(channal»«0?0:U'; 

iet HO 

if (0!»(fnnh->£lags*KrH_INTRA>) 

.„li""°'«'»='^''*™^"lJ'tree_8ixerO)*cxee_sixe(lJ) ; 
KL^CSDCHANNEL (d»t f Channel ) , oces- 1 , trea.s i xe 1 0 ] , tr e*_s i re ( 1) , ( long ) ( seQ 
If (channei-.O) KlicsDecY (dsc Ichannel J , octs. tree_sixa, f rinh, seqh, buf ) ; 
elae KliC8DecOV(d$t (channel J , octa. tree.sise. finh. aeqh, buf ) : 

long sub_tab(151.(4.2.10,2»8«tre*_sixe(0J,10.8'tree aixe(O), 

4'tree_siie(01 ,2'tree_sirefO] , 8-.2'tree_si2e (OJ , 10* tree six 
4-»4«tree_si»e(01.2»2*tree_9iie(OJ ,10*2'cree_siie(0) ,3-io»t 
if (0!-(£rxsh->£l«g841CrM_mTRA) I { 

KL2ERO(d8c(channelj,tree_sizerO)'cree sized)) ; 

If (OCt8Bs3) 

^j^^"'^"3''2mLl idat (channel) ,troe_8ixe(03,cree_sixe(l] , (long) (s» 
J ^j^^ '^ICS2DlSTILI.(dst(channel),txee_sixe(0),cree_sixetlJ, (longXae- 
if (oets-s3) 

^^^^^"3C2SENl5(dae fchannel] , tree_9ixe( 0) , cree_aiia(l ] , tnorma ,4bu 
'<*'ICS2DlSOJD(dsc (channel). txee_siief01.eree_sixe(l),inorms,ii>u 

J 

9ync2»CetTiMrValua ( ( sync2 ) ; 
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• t r er?9ync2 - sync 1 ; 

lO ! ■ ; flags&flag_wave) ) ( 
syncl»G«tTimerVdlue (Isyncll ; 

tor :ct:annel:0;chann«l<seqn->chann«ls;channel««) ( 

int si2ef2)=(sech->secuence_s:ie(01 >> (cnannel=sO?0: seqh->sub_sampl 
3eqh->se<Tuence_siie [1 ; >> i chdnnel==070 : seqh->sub_sample( i ) I 
wave_si2er2).(si2e(0)>>scale(ll,si2e(l)»scaae(l)), 
ocL9=9eqh->occaves Ichann«i»s070: 1 J ; 

switch (seqft->wavelet) ( 
case WT Haar: 

i£ (scal«[l]>acal«(01) 

KLKALf'((lac Ichimnel] , src I channel J . wave_9ize(01 . wave_size( 1 1 I ; 

elae 

KLCOPy (dst (chajinel] , arc (channel] ,wave_sixe(0)*wave_sije(i; ) ; 
HaarBaclcward(szc [channel] .wave_size,occs- scaled) ) : 
break. - 
case WT_0aub4 : 

it (scale(0]»0) ( 

it (scal«(l]>scal«(0]) 

KLHALTtdsc (channel ) . src (channel J ,wave_size(0) ,wave_size(l] 

else 

KLC0Py(d9C (channel] , src [channel I , wave.sizefO] *wave_size(l] 
Dauti4Backward( src (channel] , wave.size. occs- scale (1] ) ; 
) else 

It (channelaaO) ( 

KLCOPY(dat (channel) , src (channel! . wave_sixe tO J •wave_size{l] 
Backward^ 511 (arc [channel ] ,wav«_aize. occs-scal«(ll ) ; 
I else 

TOPBWD<dst (channel] .arc [channel] .wave_six8t01 ,w«ve_size(X) 

break; 
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• © Copyrishc 1993 KLICS Limited 

• All riches res«rv«a. 

• wriccer. by: Adrian Lewis 



Klics Ccdec 



•include * ImageCodec .h' 
•include <FixMath.h> 
•include <Error9.h> 

• include <Pac)cages.h> 

•itdet PERFORMANCE 
•include <Perf.h> 

extern TPZPerlGlobals ThePGlobais; 
•«ndif 

•If del OCBUC 

♦define DebugMsg (val) DebugStr (val ) 

• •Is* 

•define DabugMsg (val) 
*«ndif 



•define WT.Kaar 0 
•define WT_Daub< 1 

*defina None 0 

•define Usee 1 

♦define Usel« 2 

fdafine Uae32 3 

(define UseP33 4 

/• Version information •/ 

•define KLICS.CODEC.BEV I 

•define codeclnterf aceVersion 1 /• high word returned in conponent GetVersion 

•define klicsCodecromatName 'Klics* 
•define klicsCodecFomacTypa 'klic 

pascal ConponentResulC 

KiicsCodec(Compon«ncParanieters 'params.char ••storage); 

pascal ComponencResulc 
KUDpenCodeclCoDponencInacance self); 

pascal ComponencReaulc 

KLClosaCodec (Handle storage. Component Instance self); 

pascal CompoBentResule 
KLCanDoSelector ishorc selector); 

pascal CotnpenantRaault 

KUctVersioaO ; 

pascal ConponantRaault 

KLT-BtCon-cTnfo (Han<11* f toripe. Ccdeclnf ? 'inf^il; 
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pascal Con^nencAssule 

KLCetMjjiCon©ressicnSiie(Hajidl« storage , FixiapKar.die src.ccnst Rect 'srcRecc . short • 
Cod«cO guaiicy.long 'sii*); 

pascal Component Rasulc 

KLCetCon!pressec!LT,aoeSi2e(Handle storage, ImageDescriptionHandle descPtr data, long . 
DataProcSecordPtr dataProc, long •sire); 

pascal ComponentRasult 

KLPreCoirpressi Handle storage. register CodecConpreasParama 'p) ; 
pascal long 

KLFreDecompress(Hajidle storage, register CodecDecompressPaxams -p) ; 
pascal long 

KLEandDeconipresi (Handle storage, register CodccDecoiflpreasParams 'p) ; 
pascal long 

KLBandCesrpreas (Handle storage, register CcxJecCompressParams 'pi ; 
pascal Ccnc>onenc Result 

KLGetCeinpressionTiine (Handle storage, PixMapHandle arc, const Rect •srcRect. short dep 
Codec© 'spatialOuality.CodecO •tenporalOuality, unsigned long 'tiine); 

/• Function: KlicsCodec 
• Oescription:KllcaCodec main despaccher 



iifdef DECODE* 

pascal ConponentKesulc 

KlicsOacoder (CooponantPazancteza 'parama, cbar **storage) 
*else 

*ifda{ ENCODER 

pascal CoDponentResuIt 

KlicsEncoder (Con^nentParanatars *parain8,char **storage) 
«else 

pascal Coii9>oneatResult 

KlicaCodec (Component Paramacera 'parama , char "storage) 

•endii 

*«ndif 

( 

CSErr err: 

switch ( paraina->wbac ) ( 
case kConponantOpenSelect: 

err=CallCon5)onanerunetion(params. (ComponentPunccion) KlOpenCodec) ; break; 

casa kCooponentCloaeSelect: 

errsCallCoraponeatPunctionWithStorageOtorage.parans, (Con^nentPunctionjXIC 

case )cCoqponencCanI>oSeleet: 

arr»CaaiCo™poneiitrunction(parama. (CowponentFunction)lUX*nDoS«leccor) ; brea 

case kConponantVeraionSelact : 

err>CaIlCQ0«3asentruncti0B(parans. (COBponaneFMnccion)KI.CetVersioa) : break: 

Iifdef OECOOEX 

case codacPreCoopresa : 
case codacBandConpress : 

•rr>codecUniiiperr; break: 

tela* 

case codecPreCotipresa: 
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err=C«i?Ccmpcnenrrunc:;cnwich£:crage (sccrage.params. (Ccniponentfunccior.)KLP 

case codec&andCciTpress : 

err»CallCcmconer.cFunct icnwichSt orage (storage, paratns . (CcmponencFuncc ion) klb 

»endif 

•i£de£ DJCODER 

case codecPreDecorapress : 
case csdecSar.CEeccinpress : 

err = c=decL'naJTpErr ; break; 

•else 

case codecPreDecenpreis : 

err«CallCcmpcnentfunctionWichStorage I storage, params. (ConpcnentruncciciDKLP 

case codecBandDecotTTsress : 

err=Ca 1 ICoraponentFunct icnwi thSt cratj* ( st crage, params , ( CotrponentFunct ion 1 KLB 

•endif 

case codecCOSeQuencefiusy : 

errsO; brsak; /• our codec is never asynchrcnoualy busy 

case codecGeCCodecInto: 

err»CallComponencFuncticnwichScorage I scor age, params, (CorrponencfunctionlKLC 

case codecGecCoinpressedlinageSiz*: 

errsCailCon^onencfuiiCtioBWithScorage (Storage, params. (ComponentFuncticn) KLC 

case codecCatHaxCompresaionSixe: 

err sCallCoiiponentFuaccionwithStcra9t<scorag«, params. (CoirponenePunccion)KLG 

case codecCeeConpressionTim*: 

erraCallCosponanerunccionwichScorage (acozage, params. (Con^onentrunceion) KLC 

case codecGecSunilaricy: 

•rrscodacUninpErr: break; 

case codecTrimlmage: 

erracodecUnispExr; break: 

default: 

err=paramErr; break; 

) 

ii (err!»noErrl 

DebugMsg i ■ \pC0dec Error' ) : 



♦ include <Mer'.ory.h> 
■include <Resources.h> 
■include <0SUCil8.h> 
♦include <SysEcu.ft> 

t include <ScdZO.h> 

♦ include <Tin«.h> 

♦include <Scrings.h> 
•include <Strino.h> 
♦include 'BicaS.h* 
♦include 'KlicaHeadez.h* 

♦ include 'Klicabicede.h* 

void DebugSC ring (char 'scriivg) 

r 

OebugScrOcrin?) ; 



Copied from 10340491 on 04/01/2005 



wo 94/2J385 



PCT/GBM/0O6T7 



- 687 - 

Engineerinc : Kl icsCode :Co!npPict : KlicsCodec . c 



extern s^ort 

:ypede£ struct ( 

Codeclr.ts 

Ptr tabfJl 

short use (4) 
I SharedGlcbals; 

typedef strjcc ( 

KlicsESec kle; 
short •src[3]; 
short •dsc(3); 
Ptr pisanap: 

Icng. using: 
long scaleOl; 
unsicned long prev_f rarae ; 
unsigned long ze«l_£r«jna; 
unsigned long dpy_frame; 
unsigned long run.£zajTa; 
unsigned long sys_time; 
unsigned long tree.time; 
unsigned long wav«_tiiB«; 
unsigned long dpy.titne: 
unsigned long run_tiine; 
unsigned long key_cine; 
unsigned long sync_tiiae; 
Boolean out [IS] ; 
SharedGlobals •ahazedClob; 
) ClobalS! 

/• Scaling scenarios: Tree v.'ave Out 

• i 1 0: Intern*! calculation* are Quarter lixe. output Original aire (i 

• 1 1 1- internal calculations are Quarter size, output Quarter size 

• 0 1 1: internal calculations are Original size," output Quarter sise 

• 0 0 0: Internal calculations are Original sixe, output Original aire 

• 0 0-1: Internal calculation* are Original size, output Doutle sue 



• Encoding parameters •/ 
' YUV Frame buffer •/ 

• ruv Frame buffer */ 

• Encoded piwnap data */ 
' Size of PreviouB Frame Buffex •/ 
' Which lootfup table are we using for colour 
' Tree, wave. Out scales O=0figioal, -l=Doubl 

• Previous tztm number •/ 

■ Pr*viou» real frame (no sVips) */ 

■ Previous displayed frane •/ 
' First frame in play se<;ry«nce •/ 
' System overhead for previous frame •/ 
' Typical tree decode time (not skipl */ 
' Typical wavelet transform cine •/ 
' Typical display time •/ 
' Time of first run frame */ 
' Tine at last key frame •/ 
' Sync tiM •/ 
' Displayed? */ 



3id KLDeallocate(Globals ••glob); 
' Klics Function Definitions •/ 

«ern int KlicsEncode( short 'srcti], short •dstfJl, KlicsE JcleJ; 
ttem Boolean KlicsDecode ( short •sre(3), short 'dst-Sl, KlicsSeqHeeder 
long mode, long scaleO], unsigned long -tree, unsigned long -wave); 



Memory allocation/deallocation routines 



*ifdef CCBUC 

if (0!B(theErr=MeraError())) 
rsbij^iS: r ' • ' p«**'^r'.'2rrer • 
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CSErr 

"reeF^riPcr *pcr! 

CSErr :heErr=0; 

if Cptrirnil) ( 

DisposePtr ( 'ptr) ; 
•pcrmii; 

cheErisMemoryErrorl ) ; 

) 

return (cheErr) ; 



((handle)))) recum(err) 



OSErr Colours (Per •); 

OSErr ColourlfiiPcr 

OSErr UV32Table(Ptr 'j 

OSErr RCBT«l)lo(Ptr 



'*glob,long n«w) 



OSErr theErr»0; 

SharedGloDals 'sGlobs ( 'glob) ->sharedClob: 
long oldsCglob) •>usin9; 

it (oldisnaw) { 

if (oldUNone) ( 

sGlob->u8«(old-l)": 

it (sClob->ua«(old-l]>-0) ( 

FreePoincer (sClob->cab(old>l] , chsErr) ; 

) 

1 

if (newisNont) ( 

if (sGlob->use'new-ll«sO) 
switch (new) I 

•itndef ENCODER 

case Use8: 

if (noErr;s(cheErr=Colour8 (isClob->cab(new-l) ) ) ) 

return (theExr) ; 
break; 
case Usel6: 

if (ncErr!»(theErr=Colourl6(icClob->tab;new-l) ) ) ) 

return (theErr) ; 
brea)c; 
case Use32: 

if (noErr: = (theErr=i;v32TAble(tsClob->tab:new-l] ) ) ; 

return (tbeErr) ; 
break: 

tendif 

*ifndef OECOCER 

case User33: 

if (noErr!zltheErr:RCaTabla((sClob->tab|new-l] ) i ) 

return ( theErr ) : 
break: 
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( -glob) ->u$ir.sin«!w; 
sClob->use(new-l).«, 



OSErr 

XLFreeiGlobals "olobl 
OSErr theErr»0; 

FreePointer ( ( 'clob) ->arc(0) , theErrl ; 
FreePoircer ( ( 'slob) -xisc (01 , cheExr; ; 
Fre«Point«r ( Cglob) ->pi»nap, theErrl ; 
(•glob) ->sii««0; 
return (cheErr I ; 



•define NewPoincer (per, cyp«. size) \ 
saveZonesCecZone () : \ 
SecZoneiSysceAZoneO ) : \ 
if (iua»»(pcr»(cype)NtwPcr(9izei ) I ( \ 
S«CZone(ApplicZon«( ) ) ; \ 
if (nil>>(ptre<eyp«)N«wPer4siz«) ) ) ( \ 
SecZoae ( saveZonel ; \ 
return ( Me««eryError() ) ; \ 

) \ 

) \ 

SetZone( save Zone) ; 



ConponentResult 

KLMaIloc(Glcbal9 "glob, short height, short width, long pixelSize) 

( 

long ysize.uvsize; 
THz saveZone; 

ysizen (lcng)h«ight * (long)width * (longlaizesf (short) ; 
uvsize ■ ysize>>2: 

if ( (•gleb)->8i«e l» yaize) ( 
:<LFree(glob) ; 
(•9lob)->size 3 ysize: 

( •globi->prev_fxajie«-i; /• tram* doesn't contain valid data •/ 

/• Keep Src and Dst separate because of their large sizes */ 

ysite«( long) height • (long)width • I long ) sizeof ( short) » 2* Cglobl ->9Caie 
uvsize • ysise»2; 

NewPointer( (*glob)->src(0] .short '.ysize^uvsize^uvsize^lfi) ; 
(*glob)->8rcIl) ■ (short •) ( ( (long) (•glob)->8rc[0] ♦ ysize ♦ 3L) ( OxTFTTT 
(•glob)->src(2J • (ahort •) ( ( (long) (•glob)->srctl] ' uvaize •» 31.) 4 OxITTT. 

ysizea(loag)height * (long)width • (long)sizeof (shore) » 2* ( *9lab) ->scale 
uvsize » y«iza»2> 

NewPoister( ( 'glob) ->dat (0] .short '.yaiie+uvsize^uvsize+ie) ; 

(•globl->dstIl) s (short •) ( ( (long) Cglob) ->dst [0] . ysize ♦ 3L) i 0«rmT 
(•glob)-xiat(2] > (short •)(( (long) ( -glob) ->dsc [1) • uvaize ♦ 3L) k OxTTTT 
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^ NewPointen (•;lob)->pixjrjp. P:r,pixelSare/6'heigh:'vid:hr<:) , 
return (noErr) ; 



CSErr 

RescurceError i ) 

CSExr theErr; 

■ifdef DEBUG 

if (0! s (thsErrsResError ( ) ) ) 

DetugStr I • \pResoureeError' ) ; 

return (CheErr) ; 



#ifdef COMPONETT 

•defina ResErr Iresf ile. err) \ 

ii (0! ■(errsR«sourc«Error( ) ) I { \ 

if (resfileisO) CioseComponentR«$rile<reif r \ 
return I err); \ 

) 

• else 

•define ResErr (reafile. err I \ 

if {0!»(err«Re."!ourceError( ) I ) ( \ 
return (err I; \ 

) 

••ndif 

Component Result 

KLOpenlnfoResiComponentlnatAnce self. Handle 'info) 

tpragna uaused(self) 
short reaPilesO; 
OSErr tbeErrBnoErr: 

it Cinfo) ( 

DisposMandle(*into) .- 
*inioanil; 

) 

• ifdef COMPOWOJT 

resFile»Openeoj!iponentResrile( (Cexnponentlself ) ; 

ReaErr (resFile , theCrr) ; 
*else 

UseResFile(gResRef ) ; 
•endif 

•infoeCeilReaoureefcodeclnfoResource'TVpe, 128) ; 

•inforCetlResourceicodeclnfoResourceType, 129) ; 

Reserr (resPile , theErr) : 

LoadResource ( • info ) ; 

ResCrr ( resFile . theErr ) ; 

OetachReaource Cinfo) ,- 
t ifdef COMPONBIT 

CloaeCoirponcntllesFile (resFile) ; 
lendlf 

return (theerr) : 



pascal Cosponent Result 
)U^enCodec(CoBponenc Instance self) 

I 

Globals ■*glob; 
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SharedClobals *sGlob; 
THi savezone; 
Soolean inAppHaap; 
C:mponencfe9\;lt result s noErr: - 
short r««rile«CurReari:e( ) ; 

DebugMsgi 'NpOpcn Codec - begia'i; 

It ( (.slob . (Clcbals ••)NewHandleClear(siieof (Globals) ; ) nil I ( 

return ( MemoryError ( ) ) ,- 
) else HNoPur7e( (Handle ) glob) ; 
S«cComponencInstanceStcrace(sell, (Handle)glob) ; 

saveZone s GecZoneO; 

inAppHeap ■ ( GecCoitponentlnstanceAS (self ) '= 0 )• 
if ( .' loAppHeap ) 

SetZone (Sysce]nZone( ) ) ; 
if ^ lsClob=(SharedGlobal9«)CetCoiTponentHefcon((Conponent)self)) == nil ) i 
It ( (sOlob . (SharedSlobals»)N«wPtrClear(si»eef(SharedGlobal3))) ..nil ) 
result =neB»oryError ( J ; 
goto obail; 

) 

^ SetCctnpcnentRefcon( (CoinponanOself. (lonfl) sGlob) ; 

(•glob)->sharedGlob . sGlob; // )teep chi3 around where it's easy co gee at 

i£ t 9Clob->info nil || • (Handle)sClob->info «. nil ) ( 

resultrKLOpanlnioRes (self ,4 (Handle) (aGleb->ia£o) > ; 
^ KNol>urg«( (Handle) sClcb->inio); 

>ail: 

S« t Zen* I s • ve Zone I : 

if ( result !s noErr t& aGlob !» nil ) { 

if ( sGlob->info ) 

Dispo9Handle( (Handle) 9Clob->in2o) ; 

DisposJ>tr( (Pcr)sGlob) ; 
^ SetConponentRefconC (Coitponent)self , (longjnil); 

Cglob) ->sizesO: 

DebugMtg( 'XpOpen Codec - end'); 
return (result ) : 



Global! "glob = (Globals ••! storage; 

DebugMsg( 'XpClosa Codec - begia*); 
HLoclcl storage); 
if I glob ) ( 

KLFre«(glob>; 

ICLC«tTab(gloto.None) ; 

if ICountCoaponantlnscanceaC {Coaponent)8el£) 1) ( 

if ( l«Clob.<SharedClobaia-) (•gleb)->«haredGlobl ! • nil 

if ( sGlob->iBfo ) 
^ K?ur9e( (Handle) tClob->ii>fo); 



Dispo9Hanf11«( (H«ndla)gl<9bi ; 
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' hei?nc > 12Q» 

i£ ;::."nci 

•t:nie = (widch • height • ll) : 

it spatialOualicy it •spaci*10v;alicy-=codecLosslessOuaiacy) 
•spacialOualxcy r codecMaxOualicy ; 

it itenpcralOuality && •tenrscralOualityrrcodecLosslessOualicy) 
•tsmporaiCualicy = codecMajiOuality; 

return inoErr ) : 



• Lxter.ds dimensions co make a muitiples of 32x16 



•define KLExtendWidth (dim) 31- (dim-li31) 
•define KLExtendHeigbt (dim) IS- (dim-ltlS) 

pascal ComponencResult 

KLGecnaxConTpressionSiael Handle storage, Pir.MapHandle arc. const Rect 'srcRect , short 
CsdecO Quality, long 'size) 

( 

■pragma unused ( storage, arc, depth. quality) 

short Width = sreR«ct->right - srcR«ct->laf:: 
short height = 9rcRect->bottom - srcRect->top: 

/• test ty just doing RGB storage •/ 

•siie . 3 • (width-KLExtendWidth (Width) ) • lheight.)CLExtendHeight (height) ) ; 
return(noErr) ; 



pascal ComponentResulc 

KLGetCompressedlmageSiie (Handle storage, ImageDescriptionHandle desc.Ptr data. long • 
OataProcRecordPtr dataProc. long 'size) 

( 

•pragma unused ( storage , dataSize , dataProc. desc ) 
short fnnb_size: 
long data.size: 

If ( size s> nil ) ( 
return iparamErr) : 

) 

:rTOh_si2e»( (KlicsHeader •)data)->description_length; 
daca_size=( (XlicsFrameHeader *> data >-> length: 
'sizes I long) fmh.size^data.size; 
return (noCrr) ; 



void )a£etup(Booleaa still, short width, short height, CodecO space, CodecO tern 

lcle->seqh.head.deacziptioA_leDgth«sizeoi (XlicsSeqHeader) ; 
icle->segh.head.version_number (0) sO: 
)cle- > seqh .h*ad. vexaion.nuaber 111*1; 
icl e - > 8 eqh . s«qu«nc«.8 i ze ( 0 ) swidch ; 
)l 1 e - > s eon . s equence_s i z e ( 1 } ■ he ight : 
)cle->seqn.sequ«nce_aiz«(3]>0; 
)cle-> seqh. sub.sajiplc (0] al ; 
)cl e • > s eqh . s ub.s anp 1 e ( 1 ) a 1 1 
l( 1 e - > s eqh . wa ve 1 e t vwr.Da ub4 ; 
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lcle>>8eqh.pr«cTsion>10: 
kle->seQh.cctavea I'O) =3; 
l^le->sfrQh.occave8 (1) s2 ; 

;<ie->Innft.he*d.deseription_lengch.-siieof(KlicsFfan>eMeader.-; 
X 1 e - > £ tmh . head . ve r 5 1 on_numhe r ( 0 i = 0 ; 
kle->£rTBh.head. version.number ( II = i 

kle->encd.Spr_in=(2:33»tenp'160)/8; /• High = 64000 bits/frame. Poor = 1 

xie->encd.sp£_out=kle->encd.bpf_in; 

'<ie->encd.buf_siie=kle->encd.bp£_in'4; 

lcle->encd.Quanc = 16- (siiac«»15) /:023; 

jcie->encd. chxeshsl.O; 

kle->encd. compare" 1. 0; 

Kle->encd.basetO]«0.1C; 

kle->encd. base! 11=0. 10: 

kl«->ened.baae(2]>0.20: 

)(le->encd.ba8>[3]=0.S0; 

kle->encd.ba3«(4].l.OO; 

)cle->encd. incrasscill; 

kle->encd.auto_Qstrue; 

kle->encd.bu£_8w»true; 

kle->encd.prevquactsl; 

kle->encd.prevbyte9rl3; 

) 

••i£nde£ DECODER 
pascal ConponentAesule 

KLPreCompr»«» (Handle storage, resister CodeeConpressParaM 'p) 

ComponencResulC result; 

CodecCapabiliciea •cap»bilicie« . p->capAbilities; 

=JJ°" *'idth»Cp->LnaseOescription)->width*<cap*bilities->extej»dw 
height. (•p->ina9eDe«cripcion) ->hei9ht. (capabilitie«-»,xten- 

CjOB«l« ••Olobs (Global* ••jstorage; 

KliciE >tle-4C9lob)->kle; 

ext.NewHandle (siaeot (KlicsSecHeader) ) ; 

DebugMag t • \ pKLPreC empress * ) ; 
KLock( storage I ; 

if (MemError ( ) !=noErr) return (MemError (!) ; 
switch ( ( *p->inageOescriptioR} ->d«pth I ( 
case 24 : 

capabilities->wantedPixelSize ■ 32; 
kle->seqh.channalaa3: 

i£ (noErris (result=KLGetTab(9lob.yseF32l ) ) 

retum(result); 
break; 
detaulc : 

return (codecConditionErr) ; 
break; 

» 

/• Going CO ua« 3 octaves for y and 2 for OV so the image rouse be a multiple o 
•->bandMin; 

> f 1 *B8=codecCaiiC cpy Pr e vCoB^) I codecCanCopy Prev ; 
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ilngir.eerinq : :<licsCGde:Corr.pPirr 
(•;Job)->scTie(2)=0; 

iJ ir.oErr !s(resvjlt = KUMalloc(glcb. height. Kidch.O) I ) 
KLSecv;p(p->secuenceID= = 0, width. height, ( 

BlccWiovel (Pcr;4kle->seqh. -ext . sizeof (KlicsSeqHeader ) ) ; 

iJ :nc£rr!=iresuit:S«c ImageDescripticntxtensicn (p-j imageDescriptii 

returr. result: 

HUnlocki storage) .- 

DebugMsg ( • \pKLPreCoiH3ress success*) ; 
1 (result) ; 



•i£ndef ENCODER 
pascal long 

KLPreDecencress (Handle storage, register CodecDecompressParams 'pl 

( 

C Disponent Re suit result : 

CodecCapabilitiea 'capabilities e p->capabilitie8; 

Recc dRect = p->srcRect; 

long width; 

long height: 

long channels; 

Clctjals ••glob«(Global9 •• I storage; 

KlicsE kla; 

Handle exc; 
OSErr erri 

OebugMsg ( 'NpKLPreOeconsresf* ) : 
if I :Tran9f onnRece (p->matrix.«dRecc,nil) ) 
return (codecConditionErr) ; 

HLoclt (Storage) ; 
Klesi (•glob)->kl«: 

switch ( (•p->iinageDescription)->depth ) ( 
case 24: 

svitch(p->dttPixMap.pixclSize) ( 
caae 32: 

capabilities->wantcdPixelSize = 32; 
if (p>>condicionFlagstcodecConditionNewOepth) i 
it inoErr!Bl«rr«ICLCetTab(glob. Use32) ) ) 
return I err) ; 

» 

break: 
case 16: 

capabilitics->wantedPixelSize - 16; 
if (p->conditionriags&codecCondicionNewOepch) ( 
if (noErrl: (err>KLG*tTablglob.Usal6) ) ) 
return (err) ; 

) 

break; 
case 8: 

capabilitiea->wancedrixelSiz« a 8; 
if (p->condicicnFlag8icodecCondi:ionNi>'wCluc) { 
if (noErr!>(arr-KLCetTabiglob,Use8) ) ) 
return (erz ) ; 

) 

break: 
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Engineering: KlicsCode rCompPicc : KlicsCodec . c 

cJ«?iule : 

r«tum (codecCcndicionErr i ; 
break: 

) 

if fr.oErr!* (result sGetlmageDescripcicniJtt ens icn(p-> imageDescripc icn. lext Jcl-cs- 
BlocXrtovecext. (Pcrltkle->seqh, sizeof (KlicsSecjHeader) I ; 
i£ (chojmelsasll )cle->seqh.ehannelssl; 

/• Going CO use 3 octaves for Y and 2 lor UV so the image must bm a rauitiple o 
ipiidef HO 

(•glob)->scaie(0]=0; /• Tree scale •/ 
«elae 

(•gloe))->sc«ie(0]»l: /• Tree scale •/ 
•lendif 

widch«kle->seqh.sequence_si2e(01 ; 
heioht=lcl*->s*qh.sequence_sixeCl) ; 

switch(C5lob)->scaleI0)) ( 
case 1: /• Quarter size internal •/ 
(•glob)->8calefl]-l; 

if lp->matrix->inatrix[0] (0).»p->macrix->matxix[l) tl) ) 
switch (p->macrix->iiiacrix ( 0] [0]) ( 
caae 32768: 

':apabilicie9->tlaga»cod«cCanScale; 

capabiaici«o->«jct endWidth.width/2-dr.ecc. right; 

c apabi 1 i t i e 9 - >«xt •ndHe i gh t • he i ght / 2 - dRecc . bo c t on ; 

(•gXob)->acale(2]>l; 

break; 
case 65536: 

capaLt)ilitie9->extetx»<lidth=width-dRect. right; 
cap*bii 1 i t i es - >«xt endHeipht "he i ght -dJlect . bot t om; 
{ 'globl ->acalet2}-0; 
break; 
default: 

capabilities>>extendwidthsO; 
capabilitiaa->extendHeigbt«0; 
(•giob)->scalef2)j.O; 
break; 

) 

else ( 

capabiliti*8->«xtendWidth«0: 
capabilities •>extandHeightaO: 
(•glob)->acale(2)aO: 

) 

break; 

case 0: /■ Pull size internal */ 

if (p->matrix->m8trixro] (OJ— p->matrix->inatrixCl) (1) ) 
switch(p->«acrix->tBatrix(0] [0] ) { 
caae 32766: 

capabilitiaa->flag8BCodecCanScale; 

capabiliti«a->«.<teiidWidth=width/2-dRecC . right ; 

capabilities •>er.tend«eightsheight/2-dRect. bottom; 

(•glob)->scal«(l)«li 

(*0loto)->acale(2]sl; 

break; 
caa« 131072: 

capabilities->flagaBCCdecCanScale; 

C8paJ>ilitie8->extendwidth«width*3-dnect .right; 

capaJBilltie9->axcandM«ight>haight'2-dReec.boctaM; 

(*glob)*>scala(l]aO: 

(•glob)->scale(2]>-X; 
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sreak: 
case 6S536: 

capabiUcies->extendw:dchsw:dth-dBec: . right . • 

capatilicie9->extendHei9hc :heigh: -dRecz . t)Otccm.• 
l 'gicb) ->sc«lafl)=0; 

(•glob)->scaie(2)s0; 

sreak; 
default: 

r3pabilities->extendwidth:0; 

capabilities->extendH«isht lO; 

(•glob) ->scalefl]se; 

(•glob)->scalef2)i0; 

1 

else ( 

Copabilitie9->extendWidthaO; 
capabilicies->extendHeaghtsO; 
l'globl->scale(l).0; 
(•glob»->scaleI2;sO; 

) 

break: 



capabilicie9->bandMin = height ^ 
capabiiities->bandXnc ■ capabilicie9->bandHin; 

capabiii t ies - > f lags I scodecCanCopyPrev I codacCanCopyPrevComp I cod«cCaiftRemapColoi ; 
if (noErr!s(r«sulc>KLMalloclglob.hcigi)c. width, capabilities- >v«nte(lPixelSi<t) ) ) 
HUnlockf storage) 

DebugM9g< ' NpKLPreOeconipress success*) ; 
return(rasult) ; 

•endif 

/* Test Versions in C - Colour. c •/ 

void RGB2yuV32 ( long 'pixiBap. ihort 'Yc. short •Oc, short 'vc, int area, int wid 

void yuV2RGB32 (long "pixnap, short 'Yc, short 'Uc. -short 'Vc, int area, int wid 

void YUV2RGB32x2(Ptr table, long -pijanap, short •Yc. short 'Vc. short 'Vc. int a 

/* Assembler versions - Colo»:r.* •/ 

OUT32X2(Ptr cable. long -pixiBap. short -Y, short 'O, short 'V, long width, long height. 1 
0aT32X2DlPtr cable, long 'piwiiap, short 'Y, short 'D, short 'V.long width, long height. 
OVT32iPtr table, long •pi3o«p, short "Y. short "U, short 'V.long width, long height, Ion- 
OUT320iPtr cable. long 'pixmap. short 'Y. short *U. short *V, long width. long height. lo: 
0VTBX3(Ptr cable, long •pixniap. short 'Y. short 'O, short 'V, long width, isng height. lo: 
OUTSfPtr cable. long • pi jonap, short 'Y. short *0, short 'V.long width. long height. long 
OUT16X2lPtr cable, long *pixic£p, short *Y, short '0, short 'V, long width, long height. 1 
00T16(Ptr table. long 'pixroap, short 'Y, short *U, short 'V.long width, long height. lo» 
lN32(Ptr cable. long 'pixmap. short 'Y, short *U. short 'V.long width. long height. long 

/• Assembler versions - Color2.a '/ 

void RCB2YUV2 (long 'pijonap, short 'Yc. short 'Oc, short 'Vc. int area, int widt 

void YlJV2RGB2(long 'pi-rmap, short 'Yc. short •Oe, short 'Vc, int area, int widt 

void YUV2RCB3 (long 'pixmap, short 'Yc. short 'Uc. short 'Vc. int area, int widt 

void CKry3Y(long 'pixstap, short *Yc, int area, int width, int cols): 

void Y2G»EY(long 'piaonap, short 'Yc. int lines, int width, int cola); 

void Y2CCC(long 'pixMp. short 'Yc. int lines, int width, int coXs); 

/•yUV2RCB4 ( (•glob)->Table.pixBap.src(0],src{l) .srctS) ,cols' t'desc) ->neight»scale.• 
YUV2RGB5( (•glob>->Table.pijaaap,3rc(0J,src[l).srcf2),cols' Cdesc) ->height.width»sc 

•pragma parameter _O0 Microseconds 
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pascal unsioned long MicreSeccnds i void) = (OxiEBO. OxSlEl. 0x6<C); 

unsigntd long 3etTimexValue (unsigned long 'TimerRas) 

•TimerRes » CLOCKS_PEJ?_SEC; 
return ( Microseconds () )7 



»ifndef DECODER 
pascal long 

KLBandCcn^reas (Handle storage, register CodecCompressParams 'p) 
^pragma unused ( storage) 



Glcbals 


"glob a (Globala **) storage; 




ImagaOe script ion 


••desc » p->imageDe8cription; 




char 


■baseAddr; 




short 


rovBytas: 




R*et 


sRect ; 




long 


offsetH.off setV; 




OSErr 


result a noErr; 




short 


•src(3),»dst[31f 




long 


*pixnap; 






widths ( 'descl ->width*KLExtendwidch ( ( •date | ->wi 


Ldth) ; 


int 


heights! •desci ->height*KL£xcendHeight i ( •descl - 


'>haight) ; 


int 


hwidthawidth>>l.hheight=height»X; 


inn 


b/tes: 




XlicsE 


kic: 




char 


nnuModaal; 




cbar 


int ra t ) » • \pn»C : Intra -mode • , int er [ J » • \pE«C : Int 


ar-Bode'; 


SharedClobala 


'sGlob: 



»ifdcf P»FORMANCE 

(void) Perf Control (ThaPClobala, true) j 
«endif 

DebugMsg ( ' \pBandConprass* ) ; 
HLoc)( ( (Handle) glob) ; 
)(lea«(*glob)->)cla; 
sGloba ( 'glob) ->sharedClob; 

rowBytes « p->arcPixitap.rowB/tes 6 Ox3f£f; 
sRecC a p->srcPixNap. bounds; 
switch ( p->8rcPix>i«p.pixalSixa ) I 
case 32: 

offsetH a SRect. left«2: 
break; 
case 16: 

oflsetH a sRect. left«l: 

break; 
case 8: 

offsetH a sReet.lefC; 

break: 
detault: 

result a codecErr; 

DebugMsg ( • \pError • ) ; 

goto bail; 

) 

offsecv a sRaec.top • row9/taa; 

baseAddr a p->srcPixMap.bas«Addr ♦ offsatH ♦ offsatV; 
pi»apa(loag •) baseAddr; 

/• FSMakePSSpac(0.0. •\pOser:crap001* . &f sspac) ; 

FPpCreetelSfsspec. •»???•. •????', -1); 
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-SpOpenOr (if sapec , t swr perm. 4 1 il eRe £Num) ,• 
a r e a = h« i ghr'r owBy c « s ; 

FSClo9e(fileRefNuni);v 



Klics encode 



•ifdef DEBOC 

i£ P-»cal.\erFl«cs4cod«cFlasUpdatePrevious) D.bugStr( -VpSpdrtePr^^ious-f • /. 

1 p->canerF:acs*codecFlagNcScreenOpdace) D«u5str •\?^r!«S^«i- : /• 

1 P-»cailerFiagsiccxSecFlagDontO£f8cre«n) DebugStr < • \pboncOf f ^r^n-?- /. 

: P->"il"fl«CS'c«lecFlagupd*cel^.viousCo«>p) D«bu,scr(-\po^ 

1 (p->call,rFlag.tcedecFlagForceKeyFra«) D«bugStn-\pForeeSy?rS,^?T 

Jcle->«ncd. antra* (p->t«irporalOuality»»0) , • 
k 1 e - > f rmh . f r ajne_nu3ib« r s p • > t r ameNumb* r ; 

tytes=KaicsZncode ( src, dat , kl« t ; 

BlocM,ov,<(Pcr)«kle->fr7nh,p-><Ut*.8izeof(KUcsFran«He«der)); 
cyces*=sizeof (KlicsFraneHeader) ; 

( *9lob)->prev_£ra«esp.>fraiBemuflbef . 

p->daca*sbyces: 
p->butferSite»bye«a; 

I •p->ima9«D«scription!->dataSize.byc«9; 

p->9imilaricy»(!cl«->encd.intra?0:Long2Fix(24<)) ; 
p->c»llerFlags«0; 

/- P->cal Jerri*,, i.cod*cnagUaedIinageBufferMkle-,,ncd.iatra?codecFlagOsedN««lmafl 
bail: 

HUnlockl (Kandl«)globl ; 
tifdef PERFOJWANCE 

'"ret^^rMu")^^'^"*'**'^''^^'' '''P^"<*«-Pe^'* • false. 0) ) I 

»endi« 

DebugMsg«*\pB«ndCoBj)r«as succasa'i; 
recum(r>aulc); 

I 

»«ndif 

/' Display scuff for debugging 
CCralPtr wPorc. savePort; 
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Gee Pore ( (Graf Ftr • ) isavePorc ) ; 
SecCWMgrPort (twPort ) ; 
SecPor: ( ( Oral Per Jwport i ■ 
SecRec: :4recz. 0. 0. SC. 30) • 
ClipRecc (trecc) ; 
EraseRecc lireet) ; 

Num7oScringifnnh.>£rajr.« number, str)- 

MoveTo ;0. 20) ; 

DrawStrin5(scr) ; 

if l£nnh->fla9StKrK_lNTRA) ( 

SetRect (irect, 0, 30,50, 65) ; 

ClipRect Hrect) ; 

ErasaRaec l&reec) ; 

NurrfroStriaa('nivh->traii«_nuntoer/24,str) • 
MoveTo (0, 50) ; 
^ Drawstring I scr) ; 

SetRecc (ixect, -2000, 0,2000,2000) • 

ClipRect lirect) ; 

SetPorc( {GrafPcr)savePort) ;•/ 

♦define £lao_cree 0x1 
idefine flag.wave 0x2 
♦define flag.show 0x4 
♦define flag.full 0x8 
♦define DURATION £666< 

Jono ModeSwitch(Clobeii •glob, KlicsPrajneHeader 'frmh) 
long modesO, i. fps, 

Eool.an rep«at=9lob->prev_frain...fxwh-»fraiBe nu«b.r, 

R«rt rect ; 

Scr255 scr; 



g lob- > run_ c laea 0 ; 

D«bugM8g('\pModeSwitch - repeat lend)')- 
return i £ lag_t.iow i f lag_f ui: ) ; 

inext; 

swicch(fiinh->f laga) { 
case KrH_SKIP: 

D«bugM9gc\pModeS*rtech - next/8)cip«) ; 

glob- >prev_f ra»e»£rnih->f raine_nu>nber ; 

If (glob->syi_tiJiia>r«RAT10N) ( 
g lob- >rva_c ineaOf 

if (9lob->re«l_fraiBe!sglob->dpy_£rane) 
,»«x»«l-flag_wavelflag_8how; 
} else ( 

unaigned long fraM. lace; 

£r«me.glob->riin_£rame*(glob.>sync_cirae-olcb->run_tijne)/DORATI0»l: 
lacea <glob->9ync_tune-glob->run_cime ) %DORAT10N; 

xt (£raine<.qlob->prev.frame it glob->reel_£ra«e!»glob->dp/ frame) 
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raodeirf lag_uavei :iag_show; 
ii (lrajte<=glob->pr€v_frame 4i lace.giob- >wave.c ine^glob- xipy time 
""oceiiflag.wave £ldg..show: • / 

break: 
case XFH.^mUk: 

rebugMsgCNpMceieSwitch - next/ incra* I .- 
moda=£lag_cr««; 

g 1 o b - > p r e V _ f r aine = £ mh - > £ r ame _ n umbe r ; 
glob->re«l_£rajne»glcb->prev_£ra»e; 
i* lglob->8ys_cijne>DUFATICN) { 
g lob- > rurv_c im«sO : 

mode I = £ 1 ag_wa ve I £ 1 ag_ show i f 1 ag_ £ ul 1 ; 
) else 

if (glob->n;n_cime«=0) (•/ 

glob->key_tiffle=glob->8ync_tiine-glob->run_cime; 

g 1 ob - > ru n_ c inie s 0 1 Ob- > sync_ c ine - g 1 ob - > sy s _ c ime ; 

glob->run_fran>eaglob->prev_frajiie; 

mode I sf lag.wave 1 £lag_9howi flag full ; 
) else ( 

unsigned long frame, lace: 

tr»jti«=glob->run_£rame» (glob->sync_ci«e-9lob->run_ciine) /IXJRATia 
1 a t e. I g 1 Ob- > sync. t ime -g 1 Ob- > rur^i. ime ) * DURAT ICS) ; 
if ( £ram<sglob->prev_fraM) 

mode l«flag_w«velfl«g_ show I f 1 ag_f ul 1 : 

break: 
default: 

DebugMsgcspModeSwitch - nexc/inter * I ; 
modes flag.tree: 

g 1 Ob- >pr rv_ f r ame » f nnh - > £ r an>e_numb«r ; 
glob->real_frame»glob->pxev_XraiM; 
if (glob->«yt_ciit«>DURAT10HI ( 

g lob->run_c uneajO : 

mode I af lag_vave 1 f lag_show; 
) elae 

if (glob->run_tijT»»«0) { 

g 1 ob- > run_t i me eg lob- > iiync_t ine-g 1 ob- > sy s_t une ; 

g 1 ob- > run_ f r arae sg 1 ob- >pre v_ f r ame : 

mode I af lag.wave I f lag.show; 
) else ( 

unsigned loiig frame, lace; 

£ r ame . g 1 ob - > run. f rame» ( g 1 ob- > sync_: inie -g i ob- > run_c ime ) / njRATia 
lates (glob- >«ync_time-g lob- >run_cime)%DURATION; 
if (fraine<»glob->prev_£raai«l 

mode I ■ £ 1 ag.wa ve I f 1 ag_ show : 
if (frame<.glob->prev.£r«me late»glob->cree_t isie+glob->wave 

mode I *f lag.wavel f lag.ahowt •/ 

) 

break; 



ewicch(fnnh->flags) ( 

case KrH_SKIP: 

DebugMsg ( • \pHodeSwicch - jusp/skip*): 

g 1 ob- > n>n_c ixne aO ; 

break; 

case KFH_DniU: 

DebugMag»*\pMode£witch - junp/iocra' ) : 

modes f lag_c ree I f lag.wave I f lag.show I f lag.f ull : 

for ( i •glob->prev_f rame? i<f rT«h->f ran>e_nun»ber : x ►•) 
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=- ;lob->out [{r7nh->frame_nujnber»l5)sO: 
glcb- >pr«v_ £rane» frmh- >£ rame_n umber . • 
5lob->real_£ra»«=glob->prev_£rame; 
g lob- > run_c ijne= 0 ; 
break; 
delauU: 

DefcvjgMsg( "VcModeSwicrh - jump/ incer • i ; 
g 1 Ob- > run_ c ).« = 0 ; 
breax: 

) 

D«bugMsc( 'VpHodeSwicch - display in£o*); 
•ifr.d«£ COMPONDJT 

/• 5lcb->out (f rmh->£raine_nujnber»15) " (modes £lag_8how) I =0: 
for (i=0, fps=0; a<15; if (glob->ouc I i ) ) £ps*»; 
GetPort ( (GrafPtx * )tsavePortl ; 
GetCWMgrPorc liwPort ) ; 
SecPorc ( (GrafPtDwPort) ; 
SetRecc(&recc. 0.20, 120, SOI ; 
ClipRecc Itrect ) ; 
EraseR«ct(ir«ct); 

NunHoScring (£rmh->£ram«_nuinber. scr) ; 
MoveTo(0.35); 
DrawScrin9(scr ) : 
DrawStringCSp: •) ; 
Ku2BToScring(£ps. sex) ; 
DrawScring(scr) ; 
HoveTotO, SO) ; 
£or(i-0>i<lS;i-»*) 

if (glob->out[ij ) DrawSLring ( 'NpX') ; 
ela« Dr*wSErinoC\pO') ; 
SaCRecc (trace, -2000, 0,2000. 2000) : 
ClipRact (tract) ; 
SetPorc ( (Gra£Pcr)sa"aPort) 
*endif 

DsbugMagl 'NpModeSwitch - end*); 
return imoda) 

) 

•ifndai ENCODER 
pascal long 

KLBandDeconipress (Handle storaga, register CodecOeccnpressParaas *p) 

( 

vpragms unutad( storage) 

Clobala "glob s iClobals ' 
ImageDescripcion "dasc ■ 

char *baseAddr; 

short rowBj'tes; 

Rect dRect ; 

long of fsetH.ef tsetV; 

OSErr result « noSrr; 

short 'sreCSl • *dat (3] ; 

long *piJOBap; 

int width* (•de3C)->width*KLExtandWidth< (•desc)->width) ; 

int )ieight>(*de3C)->heigbt*KLCxtendHeig)it( (•dasc)->haight) ; 

int bwideb>width>>l.hheight=faeigbt»l.areaaheight 'width: 

KlicsZ lae; 
XlicsPrancHeader 'fmh; 

char nnuModeal; 

long iBoda: 

SharedClobals •sClob; 

/• 

FILE 'fp; 
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Char 

CCrafPtr 

Rect 

ScrJSS 



KLoclc( (HAjidlei^lob) ; 

DeCv;?Msg i ' '.pBaj-.dDecompress * I ; 

! •ciob) ->sys_:imGiG«cTimerValue(t Cqlob) -: 

Cglob) ->sys_cime-aCglob) ->sync_cim«; 

i£det PERTORHANCE 

ivcid) PerlConcrol (ThePGlobals. true) ; 



dRect = p->srcRect; 

i£ ( !TransfcnnRect(p->m*crix.sdRect.nil) ) ( 
DebugMSff ( • \pTr«in t omRect Error* ) ; 
recumiparanErr) ; 

) 

rowByt«« . p->dstPixMap.rowByte» 4 Ox3££f: 
offsetH = idBect.laf: - p->d8tPixiiap. bounds, lelc) ; 
swicch ( p->dacFixMap.pixclSizt ) ( 
case 32: 

oftsacH «-2; 

break: 
caaa IS: 

oCfaaCH «■!; 

break; 
case B: 

break; 
default : 

result s codecErr; 

DebugHS9( 'Npoepch Error* >; 

goto bail; 

1 

offsetv > {dRect. cop - p-x3stPix«ap.bemndi.top) • r 
baseAddr ■ p->dse PixMap. beaeAddr » offsecN ♦ ottaec 
pixmaps ( long * ) baseAddr; 



Klics decode 



srelO). (•glob)->src(0| ; src f 1} . ( 'globJ ->src( 1] ; src (2 J = ( 'Qiob) ->src [2] ; 
dst(0)=(*slob)-xlat[01; dsttl}.(*glob)->dsc(l); dsc C2] s ( •glob) ->dscI21 ; 

f mhs (XlicsrianeHeader *)p->daca: 

kl«->bu«.buf. (unsigned long • ) (p->data»aizeot (KlicsFxameHeader) I ; 
n»de«HodeSwicch(*glob,fmh) ; 

KlicsDecodetsre.dst ,*kle->8e<jh. frmh. tkle->bu£,node, ( -glob) ->scale. t ( 'glob) ->cr 

if ( kle->buf .ptr-kle->buf .bu« > £rmh->length*21 

0etugHa9(*\pwamlng: Decompressor read passed end of buffer*}; 

p->dacaCO)»'X'; 

p->data(l)snode&flac)_tree?'T' : ■ 
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p- >d«t»( 2 ) =(Tode4 flag.wave ? ■ w : ■ 
p->d*t«f3).mode4flas_show?"S' : 
p-xS*tal4].iT»d«4faag_iull? •.«■•: ■ 
p-xa«ta(51 = fmh->£lagstKFH_INTRA? :' : • 
p->data(61 = £rTOh->£lags4KFH_SKIP? -K' : • 
p-><iaca(71.'X'; 

p->daca.ip->buf ferSize; 



signed 10 bit YUV-unsigned 8 RGB convnrt 



• ifdef CCMPONBTT 

SwapKMUHoda ( &ninuHod« I ; 
■iendit 

it <inode(< lag. show i ( 

(•giob)->9ync_cime=GecTimer7alue(SCglob)->sync time) ; 
I -glob) ->dpy_£rain*- ( 'aXob) ->real_£ran>e: 
If ((•9lob)->9eaief2]<Cglob»->9cale(l]) ( 
swiccA(kIe->seQh.chafinels) ( 
caae 3 : 

switch tp->datPixMap.pixelSixe) { 
caae 32 i 

if (nodetllag.full) 

OUT32X2(sClob->t*blO8e32-l],pijaLap,arc(0],9rctl) .src,'2hwi. 



case 16: 

0OT16X2 ( 9Glob->cab (08el6-l 1 , pijonap. src 10] . arc (1 1 , arc (2 J , width> 
break; 
case 8: 

OVrexa (aClob->tabIU9e8-lI .pixmap. irctO] , srcllj ,arc(2].width»( 



break; 

) 

break; 



awitch (p->d9tl'ij'Jiap.pixelSize) ( 
caae 32: 

if imodeif lag_full) 

0UT3 2 ( sG i Ob- > c ah ICseS 2 - 1 ], p ijonap , 8 r c 1 0 ], are 1 1 1 , 8 rc r 2 ). widt. 

•aae 

0UT32D(9Clob->tah[U8e32-l J .pijtnap.src (OJ , arctll , 9rct2 J , wid 
bxeak; 
caae 16: 

COTl 6 ( aGlob- > tab (Dsel 6 -1 ) , pLwnap , src 1 0 1 , arc ( 1 ) , 9rc [ 2 J , width» ( 
bnak; 
case 6: 

OOT8(sGlob->tab(tJae8-ll .pixmap, src(0],src(l]. are (2] ,width»Cg 
break; 

) 

break; 
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CLEAWkJ ( ) ; 

i'5iobt-?Jsync_tune=Cec7i.TierVdIueii. •;lo^)t->s/nc_Clm•); 
•::de^ COMPONENT 

SwapMMUMcde ( i.-TTTujMode ) ■ 
•er.(ii£ 

tail: 

HLT.lccki ■ Handle) glob) : 

•ifdef PERFORMANCE 

if (0! »(re9ult = Perf DumpiThQPClobais. 'XpCeccde .peri • . false. C) ) ) 
•endlf 

DebusMsg( •vpBandDecompress success" ) ; 
recurn( result) : 
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• © Cor/right 19S3 KLICS Liniced 

• All r:ghC9 reserved. 

• Vricten by: Adrian Lewis 



• Scecr.d generation header file 



'^include <scdio.h> 

/• useful X definitions •/ 
/'zypeaet char Boolean:*/ 
cypedef char 'String; 
••define True 1 
■define False 0 

/• new Blk definition •/ 
typedef inc Bl)c(4); 

^define WT_Ha*r 0 
•define WT_Caub4 1 

/• mode constructors •/ 
•define M_LPF 1 
•define M_STILL 2 
•define M_SQ<0 A 
♦define M_STOP 6 
♦define 11_V0ID 16 
♦define M_QUIT 32 

/* Loo)cAhead histogran •/ 
♦define HISTO 300 
♦define HISTO.DELTA 15.0 
♦define HISTO.BITS 10 

/• Fast Functions •/ 

/• Is the block all tero ? •/ 
(define BlkZero (block) \ 

block(0]=sO it block|l)s=0 block[3]»0 4fc block[3]»0 

/* Su.li of Che absolute values •/ 
(define Oecide(new) v 

abs(new(0))» \ 

abB(newil])* \ 

absinew[2])« \ 

abs(new[3]) 

/• Sum of the absolute differences */ 
♦define DecideDelta(n«w,old) \ 

«b8(newC01-old(0))* \ 

absinewlD-oldClJ)- \ 

ab8(n««(3]-old(a])* \ 

ab8(newr3J-old[3]) 

/• Adjust the norsa for cenpaxiaon with SignaAba •/ 
♦define DecideDoubla (norm) (4,0*noxTB) 

/* Get addresses from x,y coords of block, sub-band, octave. 
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•^image size art .lask :i:zeztiy .-eUced ca octave/ ;r.:ormacion 

•define CetAddriacidr, x.y. sub. oci, size.. -nasKI v 
■. :n: smas)c=m«sks>l. \ 

xOsxl (sut5il?smask:0) . \- 

xl-xl (3ubil?5nMak:Cl imask. \ 

yO=(-/l !sub42?3nia9k:C) I •si2e(0; . 

yUly f (subi2?smask:0) iroaski -siiefOI ; \ 

addr(0)»xO-yO; \ 
addrfl) =xl*yO; \ 
addrf2)rxO*yl; \ 
iddr(}).xl»yl; \ 

) 

/• Get data values from addresses and memory' •/ 
iiCetine CetData(addr, block. daca) \ 

block|OJsiiniidata(addr(0]); \ 

block(l)=iint)Qaca(addr(l)); \ 

bloc.k[21s(int)d«ta[addrf2) 1; \ 

block(3J»(int)data(addr(31 J; 

»define VerifyDaca ibloc.t. mask, cn.pl \ 
cmpsblockfcnaak: \ 
if (cnqpisO ti snplamask) ( \ 
block3block<0'naak:-mask; \ 

) 

/• P«c daca values to nwirory using addresses •/ 
•define PucDaca (addr. block. data) \ 

data[addrfO)l=(shortlblocklO); \ 

dataladdrtl) J-(shorc)block(l); \ 

data(addr(21J.(shcrt)blockf2J; \ 

da t a I addr 1 3 1 1 = ( short ) block f 3 ) ; 

/• Put lero-s to mesxsry using addresses •/ 
'define Puczero(addr.dacal \ 

dataladdrfO] ]<0: \ 

dataladdrdl jsD; \ 

daca(addr(2] ]«0: \ 

daca(addr(3]]sO; 

/• Mode: M.VOID Put tero-s and find new node •.' 
•define OoZero(addr.dsc.mode,occi \ 
PucZerc(addr .dst ) : \ 

mode (oct)30Cts»07M_STOP:M_V01D: 



•define DownCouncers (mode. oct, mask, blk) \ 
r«de(oct-l) =mode (occ) ; \ 
oct — ; \ 

mask ■ ma8k>>l; \ 
blk|oct)«0; 

/• Ascend tbc tree structure 

• Ascend tree (if possible) until branch not . 

• If at cop then cet mode to M.OOIT 

• Else increment braneb and x. y coords 
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mask: n^3k«l; \ 
X «a -mask; \ 
y 6i -maaK; \ 

) \ " 

it (cct==octs-l) modeloctlsM QUIT; \ 
else ( \ 

SUloctl-.; \ 

X -= :na9K«i; \ 

if (bl)c(occ]=«2) y -s mask«l; \ 
mod«(occ)«mode(oct«l) ; \ 
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© Copyrigbt 


1993 KLICS Limited 






Ail righcs reserved. 






w bv- 
• written 


Adrian Lewis 






68000 FascFo 


rward/Bac'irward Haar 








iaddrO.&dC.fcdH 






mcve.w 


;taddrO) . &dG 


; dc=*( Shore 'laddrl 


endm 


idC.tdH 


: dH.dG 




macro 








rwdl 


i addzl . iaddr 0 . tdC . &dH 






liaddrll.dO 


va* (shore *)addr2 


add.w 


dO.&dM 


dHov 




sub.w 


dO.fcdC 


dC-.v 




clr.w 


dO 


dOaO 






tl.«dH 


dAH»« 


1 


addx.w 


dO.tdH 




dN 




tl.fcdC 


dC>»l 




addx.w 


dO.tdC 




dC 




&dH. <(addrO) 


•(shore •)addrOadH 


move.w 


tac. (laddrl) 


*( shore * laddrl sdS 




Abase, lend. line 






movea I 


U»se.aO 




addrOsbaao 


novel 


&inc,dO 




dOaiAC 


asr.l 


«l.dO 




dOsinc»l 




aO.«l 




addrlaaddrO 


suba.i 


dO.al 




addrl-s(inc>>l) 


?do rwdO 


aO,d4.dS 




rwdO(addrO.dC.dH) 


adda.l 


&iiic.al 




addr lysine 


Fudl 


al.a0.d4.dS 




rwdl ( addr 1 , addrO . dC . 


adda.l 


fcinc.aO 




addrO.eine 


cnpa. 1 


aO.tend 




addr 0< end 


bgz.t 
enda 


Odo 




while 


KaaiForvard FUMC 


EXPORT 






link 


a6,»0 




no local variables 


aovaa.l 


d4-d7/a3-aS,-(a7) 




seor* regiseera 



novt.l S000C(a6),d3 ; incsinci 

novM.l $0008ia6),aS : basRsdaea 

nova.l S0010(a6).d6 : endl 

mova.l S001»U6).a7 ; end3 

iBove.l S001«(a6),d2 ; inc2 
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move*. 1 

adda.l 



dZ.aS 
d7,«5 



(a7)»,d4-d7/a3-d5 



: and*9endJ 

; rwditsase.end. irx) 

base»=inc2 

end2>base 

tor 

rescor* registers 
remov* locals 
recum 



'&a<ldrO,(dC.fc(lH 



' ( short • ) addrO 



move.* 
add.w 
sub.w 



baddr 1 . (addrO . fcdC . fcdH 



((addxl) ,dO 

dO.(dM 

dO.fcdC 

fcdH. (iaddxO; 

fcdC. (laddxl) 



) addrl 



I v»» (short • 

; dH»»v 

; dC-«v 

; '(Short •)addrO-dH 

; '(short •) addrl adC 



Bwd 

move.l 
asr.l 

suba.i 
(?do BwdO 

adda.l 
Bwdl 

1.1 



dbf 



fcbflse.icounc.iinc 

U>aae,aO 

&iJ)c.dC 

«l,dO 

aO.al 

dO.al 

a0.d4.dS 

&inc. aX 

al.a0.d4.dS 

tilncaO 

fccouncMo 



dO>ii 



>1 



sddri>addrO 
addrl-« (inc»l)" 
BwdO (addxC.dC.dH) 
addrl-»*inc 

Bwdl ( addrl . addrO , dC . dM ) 

addrO*«inc 

vrtiile -1! "Count 



HaarBaOcward FUMC EacPOHT 

• dO - spare, dl - countl. d2 - inc2. d3 - incl. d4 - dG. d5 - dH, d6 - loopl, d 

; no local variables 
; store reflifftera 



movea.l 
mova.l 

subq.l 
Isr.X 
subq.l 



$0OOC(a6).d3 

S0OOB<a6).aS 

S0010(a6).d6 

$0018(a6).d7 

S0014U6).da 

•l.d7 

•l,d6 

•l.d6 



inc»incl 
baseadata 

loop! ( width/height) 
loops (heishc/width) 
inc2 

loop2-«l 
loopl/«2 
loopl -«1 
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movB . 1 


dS.dl 


Ewd 


aS.dl.dJ 




d2.aS 




d7 , edo 


rrveni. 1 


Ia7)-.d4-d7/ 




a6 










pBuxl FUNC 


EXPORT 


link 


a€,«0 


movea . 1 


S0008 Ia6) .aO 


iT.ove . 1 


$000Cla6) .d3 






subq. 1 


#l!d3 


mov«.l 


laO) ,dO 




dO.dl 


swap 


dl 




dO 


add!l 


di.dO 


nove.l 


dO. Ia0)> 


dfcf 


dJ.Sdo 


unlk 


a6 


res 









Engineering: KlicsCode:CcnpPic; :Haar. ( 



count Is loop! 

Bw(;(ba5e.counc . mc 

base-rincJ 

while -lls'-iocpS 

restore recisters 
remove locals 
return 



no local variables 

scare 
arsa 

area (long) 

area-al 

dO-HC-'Y 

dlsHG 
dlsGH 
dOsH(-C) 
dO*01 
•Y*— 01 

while -l.'=--area 



HaarTopBvid FUNC 



move.l 

add.l 
Isr.l 



move.l 
add.l 
sub.l 



SO0O8(a6>.aO 
aO.al 

S000Cla6),d< - 

S0010iae),d3 

d3,d6 

de.de 

»l.d4 

#l,d3 

• 1,04 

«l.d3 

d6,al 

d3,d5 

(aOl .dO 

(aD.dl 

d0.d2 

dl.dO 

dl.d2 



•carcK 

scarce 
height 
width 

lin*l«n«widch 
linclen (bycesi 
height/ >2 
width/ -2 
height -«1 
width- «1 
startC^alinelen 
lin«counc>widch 
dO=HAHB«'YO 
dl«CACB«*yl 
dSsHAHB 
dO-OAOB 
d2BlAlB 

dl.HC 
dlaCM 
dO>H(-Gl 
dO«01 

•YO—.OAOB 
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-.e«.w 
add.l 
move . i 


02. (a:). 


: d2rH(-C) 
•YlfslAlS 


dbf 

nov« . 1 
dfcf 


d5 . edo2 

al.aO 

d4.8dol 


while - 1 ! e--Unecount 
scartHsstartc 
while -li=--ftei5hc 


raovem. '. 

cnik 

res 


(a7) »,d4-d6 
a6 


restore registers 
remove locals 
return 


ENDFUNC 






END 







Copied from 10340491 on 04/01/2005 

ciioc-nTiiTT cuccT (Din c ne\ 



PCT/GB94/0O<r7 



■ 712 - 



-ngineerxng:KlicsCode:CcmpPic: :ConvclveSH3 .c 



J Cccyricht 1993 KLICS Li.niced 
Ail rijncs reserved. 

■.•.'r:;:en sy: Adrian Lewis 



23 uavele: transfonr ccr.volver (fas: hardware emulation) 
New i.uproved wavelet ccafts : 11 19 5 3 

Optimiied ;or speed; 
dim - False 
src/dst octave == 0 



^eefi.'.e FwdSiaddrO.dACdAH) \ 
v:-(shcrt 'laddLrO; \ 

dAC« (v3sv* ( V9'V<<1 ) ) ; \ 
dAG«cv* lvs<<«l) ; \ 
dAH=v3*IVS<<rl) ; \ 
dA>i»=v3-»(vs««l) : 

•detir.e Pwdl (addr 1 . dAC. dAH. cUCUBH) \ 
vs-(shor: "jaddxl; \ 
dSG» (v3sv» (vs=v<<l 1 ) ; \ 
dAH..v. Ivs<«-1) ; \ 
dflK=v3- (vs«»l) ; \ 
dXC-»v3*(vs«sl) ; 

*de{ine FwdS (addr2, addxl, addrO.dAC. dAH. dSC, dBHI \ 
v«'( short 'Jaddra; \ 
d\.H->(v3<iv«(vssv«l) ) : \ 
dflG»»v» (vs<<b1) ; \ 
dAG*>v3*(vs«sl) ; \ 
diH.sv3*(vs«»l) ; \ 
•ishort «;addrOs(dAH*lS)»S: \ 
'ishorc •)addrl>(dAG»lS)»S: 

•define rwd3 iaddx3 .dAG.dAH.dBC.dBH) 
va'tshor: 'laddrJ; \ 
dACs (v3sv. (v$»v«l) ) ; \ 
d£H.rv.(vs«»il; \ 
dAH.v3«(VS«si); \ 
dK:-«v3» lvs-«<e:j ; 

'defi.-.e FwdO (addrO . addz3 , addr3 . dAC, dAH. dBC. dBH) \ 
v»*!sftori 'laddrO; \ 

dBH-.(v3.V» (V9»V«1) ) ; \ 
dAC»»v»(vs«al> ; \ 

dBG-»«v3»(v8«»a) ; \ 
dAH»>v3-'(V9«sl) ; \ 
•(shore naddxS- (dBH*lS)>>5; \ 
•ishcre •)addr3.(dSC«lS)»5; 

vdafir.i FwdE(addr3,addx2,dBC.dBH) \ 
vr«( short •JaddrJj \ 
dBH»c|vs»v«l); \ 
dBC-> (vs«2) : \ 

'ishort •laddr2s(dBH*lS)»S; \ 
•(Short •)addr3>(dBC.i5)»S: 
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*defir.e Fv«3(b*»«, andtincl \ 
addrOatase; v 
addx3»«ddrO- ( irc>>2 ! ; \ 
ac5dr2=addr3- (inc>>2) ; \ 
adflxiraddxS- (ii:c>>2) ; \ 
FwdS(addr0.dAC,(JAH) ; \ 
addrUsinc; \ 

FwdKaddrl.dAC.dAK.dBG.dBK:; \ 
addr2»=inc; \ 

Fwd2 (dddr2. addrl . addrO.dACdAM, dBC, dBH) : \ 

addr3»rinc; \ 

while (addr3<and) { \ 

rvd3(addr3.dAC,dAM,d£c.dBH) ; \ 

addrO*sinc: \ 

rwdO(addrO,8ddr3,addr2,dAG,dAH,dBC.dBH) ; \ 
addrl*sinc; \ 

Fwdliaddrl.dAG.dXH.dBG.dBH) ; \ 
addx2*«Lnc; \ 

rud2(addr2,addrl,addrO,dAG,dAH.dBG,dBH); \ 
addr3-»inc; \. 

) \ 

Fwd£ ( addr3 . addr2 . dBG . dBH) ; 

extern void FASTFORWARD ( char 'data, long incl. long cndl, long inc2. char ••ndS); 
extern void HAAAFORWXRS ( char "data, long incl. long endl, long inc2. char •end2); 

void FascPorvord(char 'data, long incl. long •ndi, long inc2, char 'endaj 

register short v, vs, v3. dAC. dXH. dBG. dBH, inc.- 
raffiscer char 'addrO. 'addrl. 'addirS. *addr3, ••nd; 
char 'ba**: 

inc«incl; 

for ( base*daca; baaa<end2 ; base^a inc2 ) ( 
endsbasA^andl: 
rwd(basa,end.inc) : 



Daub<Forward( shore -data, ins aiz«(2]. int oct_dst; 

oct. area»si«e{0)»8iia(l)«l; 

»rt widehssiz«(0]«l; 

IT 'top- area* (char -idata. •left«wldtlj-»(char 'idaca; 

MoctsO;oct !=oce_dat;oct**> ( 
long cinc»2<<oct, cinc4»ciac«2 . 

rinc=tixa(0]««oct*l, rinc4Brinc«2; /• col and row increments in t 



id HaarFcrward ( short 'data, int 3l2e(2}, int oct_dac) 

ine occ. araa«ais«(0) •sisa(l)«lt 
short widtb«aiz«(0]«l; 

char •top>area«<char 'Idaca, •leCc*width*(char 'jdata 
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Engineering : Kl icsCode : CompPic: : Ccr.voi veSH3 . c 
rinc?si2e(01«oct.;. rinci = rinc«l: /• coi and row increments ;n c 

KAARFOBWARDl (Char ') data. Cinc2 , width . r:nc. cop; • 
HAARFORWARDI (cnar 'idita-rincJ. area. cine. left: , 



vcid Hybr-dforwardi short 'data, int siie(21, int oct.dst i 

int cct, area = aiie{OJ'sirefll«l; 
s^.crt width = siie[0| «1; 

char -toprarea.ichar 'idata. • lef t-width* (char 'Idata; 

HAARFOTiw»RD ( (char '! data , 4 , width. Size fO ) «1 , top 1 ; 
KAAKfCFWARDf (char 'ldata.size[0)<<2,area,2,left); 
£or(octsi;oct:=oct_dst;oct — 1 ( 

long cinc=2«oct. cinc4scinc«2. 

rinc»siie(0)<<oct»i. rinc4srlnc<<2; /• col and row increments in t 

FASTrCRWARD( (Char • )data,cinc4.width-einc. rinc, topi ; 
FASTrORWARD( (char • 1 data, rinc4. area -rinc. cine, left) ; 



♦deiine BwdSO(addrO,dAG,dAH.dflH) \ 
vs' (Short 'laddrO; \ 
dACs - (V33V* ( vs=v«l) ) ; \ 
dAH.V.(VS«al) ; \ 
dBH.VS«i; \ 

^deiine BwdSl (addrl , addrO.dAC.dAH.dBH) \ 
vs> (short 'jaddrl; \ 
dBHT (vs«v<<ll ; \ 
v3.vs»v; \ 
dAC»«v3.(vs««2) ; \ 
dAH-.v3. (vi«.l) ; \ 
•(Short •)addrO-(dBH-3)»3; 

•define Bwd2 (addr2 . dAG, dAH, dBG. dBH) \ 
v=« (Short •)addr2; \ 

dBCs -(V3rv. (V9=V«1) ) ; \ 

dBH.v* (vs«»l) : \ 
dAH»Bv3« (v$««l) ; \ 
dAG*sv3'> (vs<<e1) : 

•define Bwd3 ( addx3 . addr2 . addrl .dAC. dAH. dSC. dBH) \ 
v= • ( shcrt • I addr 3 ; \ 
dAH»s (v3»v.(vs»v«l) I : \ 
dAC*«v*(vs«sl) : \ 
dBC..v3.<v»<«=l) ; \ 
daH-iv3«(vs«=l) : \ 
•(Short •)a<3dri= (dAH»7)»4; \ 
•(Short •)addr2- (dAC.7)»>4; 

•define BwdO(ad(3rO. dAG.dAH, dBG. dBH) \ 
v.» (short 'laddrO; \ 
dAG« -(v3.v»(vt-v«l)); \ 
dAHsv* (vs«b1) ; \ 
dBHrov3*(vs«>l) : \ 
dBC*«v3->|vt«<«l) ; 

•define Bwdl(addrl,addr0.addr3,dAC.dAH,dBG.dBH) \ 
v«* (short • I addrl; \ 
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V3av. (VS«i«<l) ) ; \ 



lAr:-.v3.lVl«.l| : \ 

(Shore •)a(lilr3=(dBH«-7)>: 
(Short •)«ddrO=((lBG.7)>: 



=lBH=(vs«.2) ; \ 
dAGTv3»(vs«al) ; 



•dafin* Bwd£3 (addr3 , «ddr2 . addrl . dAG. dAH. dSH) V 
vs« (short 'jaddrJ; \ 
dAH*s(v3=v»(vs=v<<l) ) ; \ 
dAC..v.(vs«»l); \ 
dBH-rV3»(V8«sl) ; \ 
dBH-.v3*(vs«rl) ; \ 

•(Short •)8d(arl»(dAH*7)»4f \ 
•(short •)dddr2=((lAC»7)»4; \ 
•(short •)addr3=(dEH*3)>>3; 

ideiine Bwd (base, end, inc) \ 
addrOsbase: \ 
addr3B«ddrO- ( inc>>2) : \ 
addr23addz3-(inc>>2) ) \ 
addrl:addr2- ( inc>>£>) ; \ 
BwdSOladdrO.dAG.dAH.dBH): \ 
addrl*»iae; \ 

BwdSl (addrl.addrO.dAC.dAH.dBH); \ 
addr2'»«anc: \ 
whilfl<adaz2<end) { \ 

Swd2(addr2.dAC.dAH,dBG.dBH)> \ 

addr3*sine: \ 

Bwd3(addr3,*ddr2,a«Jdrl,dAG.d*H.dBG.dBH); \ 
addxO*>inci \ 

BwdO(addr0.dAC,dAM.dBC,dBH)> \ 
eddrl»einc; \ 

Bwdl(addxl.addr0.addz3.dAG.dAH.dBC.dBHI: \ 
addr2»«inc; \ 

) \ 

Bwd£2(addr2.dAG,dAH,dBM}: \ 
addr3*:ins: \ 

BwdE3 ( addr3 . addr2 . addrl . dAG , dAH , dPH) ; 

extern void FhSTBACXWARD ( char 'data, long Incl. long loopl, long iac2. char •end2) 
extern void H^ARBACXWAMXchar 'data, long incl, long loopl, long inc2, long loop2) 
extern void HAARTOPBWD ( char 'data, long height, long width); 
/• extern void HAARXTOFBWO ( chu 'data, long araa);*/ 

void Fa St Backward (char 'data, long incl, long endl, long anc2, char •end2) 
ragiseer short v, vs. v3, dAG, dAH, dBG, dBH. inc; 



Bwd tba8« , end. inc ) ; 
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Dauti<Eackwardishort 'data.inc siie(?i.;nc oc:.srci 

cct, area»siie|0]'sii«fl)<.<i; 
3r: width=si2e(0)<<l; 

it 'CDpraxea* (char 'idata. -lefciwidth. ichar 'Jdaca: 

:(oci:occ.src-l;oct>=0;oct--) ( 
long cinc=2<<occ. cinc<rcanc<<2 . 

rincaBi2e(0)<<oct»l, rinc4srinc<<2 : /• col and row incremancs in t 

FASTSAClCWAJlDi (Char •) data. rine4. area- (rinc«l) .cine, left) ; 
TASTBACKWARDI (Char • ) daca . c inc4 . width- I cinc«l ) . rinc. cop) ; 



HaarBaclcwardfdaca. ! 



in: oct, axeassiie(D) •si2e(ll«l; 
snort widthsaixe{0)<<l; 

char "top-area* (char Ndata, • left rwidth* (char 'Xlacai 

for (cctsoct_src-l;oct>0:oct--) { 

long cins«2«Qct. cinc2«cinc«l. 

rinc>si*e(0]<<oct<'l. rinc2«rinc«l; /• col and row incremenrs in c 



void HybridBac)tward(data. size.oct.src) 

short 'data: 

int size(2], oct_src; 



ir.t oct. areB»aizetOJ*size|lJ<«i; 
short width«sizelO]«l; 

c.-.ar •top=aree»(char 'jdaca, •left»width»(char 'Idata; 

for ioct«oct_src-l:oct>0,-oct") ( 

long cinc=2<<oct, cinc4eciac<«2, 

rinc=size(0)«oct*l. Tinc«»rinc«<2; /• col and row increments in t 

rxsTBACKWwux Ichar • )daca,rinc4 .area- <rinc«l ) , ciac, lefc); 
FASTBACirwARD ( ( Char • ) data . cinc4 , width- (cinc«l ) , rinc , top) ; 

) 

HAARTOPBWD( (Char *)daca.sizeHJ,sixe(0) 1 ; 
/• HAARXTOPSWDHchar 'Idata. ar«a»i);</ 
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S CcFyright 1993 KLICS -Limit ec 
All rishts reserved. 

wriccen by: Adrian Lewis 



53000 FastForvaxd/Backward code 



Fwdscarc &addrC.cdAC,&dAH 

move.w (iaddrO),dO ; v='( short 

move.w dO.dl ; vsav 

add.W dl.dl ; V9«al 

move.w dl.d2 ; vjsvi 

add.W d0.d2 ; v3svs*v 

move.w d2,fcdAC ; dACsv3 

add.W dl.dl ; vs«>l 

add.W dO,(dXC dAC*«v 

add.W dl.fcdAC : dAC*«vs 

move.w d2,fcdAM ; dAHav3 

add.W dl.dl ; V9«-1 

add.W dl.&dXM : dAH*>vt 

add.W d2.&dAH ; dAN*sv3 

add.W dl.dl ; v8«sl 

add.W dl.idAH ; dAH*-va 



4 addr 1 . fcdAC . idAH . (dBG . fcdBH 



(taddrl) .i 
dO.dl 
dl.dl 
dl.d2 
d0,d2 
d2 . (dBC 
dl.dl 
dO.&dAH 
dl.fcdAH 



dS.iidAC 

dl.dl 

dl.&dAC 



v»* (short ' 
vs»v 

VS«sl 
v3avs 

dBC.v3 
VS«sl 
dAH*«v 
dXH*<vs 
dBHav3 
VS«sl 
dfiH*>V8 

dAC-sv3 
vs«il 
dAG-.vs 



macro 

PwdBvwi fcaddr3.taddrl,&addrO.£dAC,£dAH.«dBC.fcdfiH 

move.w t&addz3).d0 ; vb* (shore *)addr3 

move.w dO.dl ; vaav 

add.W dl.dl ; v««-l 

move.w dl.dS ; vS'va 
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add.w 
add.w 



asr .w 
addx.v 
move . * 
move .ii 



Engir.eerir.c: KlicsCcde :C=mpPici : CcnvciveSH3 .a 



*d0.d2 
d2.tdAH 
dl.dl 
dO.tdBC 
dl.LdBG 
d2 . &C1AG 
dl.dl 
dl . idAC 
d2.&(iaH 
dl.di 
dl . idBH 



dO 
»!.idAM 
dO.&dAH 
«S.idAC 
dO . &dAC 
&dAH. (laddrO) 
idAC. (&addrl) 



■ dBC*=v 

; dBC--vs 

; dAGTvj 

; vs<<sl 

; dAC-«vs 

: dBH-.=vj 

; vs« = l 

; clfiH*>vS 

; dO-0 

; dAH»=5 

; round dAH 

; dAG»<5 

; round dAC 

; •(short NaddrOsdAH 

; ■( snort -jaddrlsdAG 



I&«ddx3) ,dO 

dO.dO 

dO.tdBH 

*2,d0 

dCAdBC 

dO 

DS.tdBH 
dO.tdBH 
tS.&dBC 
dO.tdBC 
&(1BH, (&addr2) 
&dBG. (4addc3) 



v«.2 

d»G-«v 

dO«0 

dBM»>S 

rouad dBH 

dBO»sS 

rouad dBC 

•(short 'laddrSsdSH 
•(short 'laddrlsdSG 



movea.l 

asr.i* 

suba. 1 
move a . 1 
auba.l 

suba.i' 

FwdStart 

adda.l 

FwdOdd 

add«.l 

rwdeven 



&baae.aO 

(inc.dO 

12. dO 

a0,a3 

d0.a3 

a3.a2 

d0.a2 

a2,al 

dO.al 

aO.d4.d5 

iiDC.al 

al.d4,dS,d6,d7 
(inc.a3 

a2.al.aO.(14.d5.d6.d'7 
(inc.aS 

•3.dC.d7,d4.dS 
(ine,«0 

a0.a3,a2,d6,d7,d4.d5 
(inc.al 

al. d4.d5.d6.d7 
iinc.a2 



addrOsbas* 

dOziae 

d0«ine»2 

addrJsaddrO 

addr3-« (inc>>2) 

acUlr2.addr3 

addr2-« (iTic»2i 

addrl>Addr2 

addrl-a(inc>>2) 

FwdStart ( addxO , dAC. dAM) 

addrl'sine 

Fvidodd ( addz 1 . dAC . dAH . dBG . dBH ) 
addr2*BiDc 

PwdEven (addx2 , addr 1 . addrO , dAC . dAH, <SB 
addr3*ainc 

FvdOdd ( addz 3 . dBC . dBH , dAC . dAH ) 
addrO*'inc 

FwdEvu) ( addrO . addr3 . «ddr2 , dBC , dBH , dA- 
addil*ainc 

FwdOdd(addrX,dAC.dAH,dBG. dBH) 
addr2^=ine 
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FwdTven 
addB.l 
cmp*. 1 

Fw(Un<3 

lacForward FUNC 

link 
movem. i 

mov«.l 

movea. 1 
10 laovea.l 
adda.l 
Fvd 
adda.l 
ciroa.l 
blew . 

movem. 1 



En5aneeri.ng:Kl:.csCoae:CGnpPic::CcnvoiveSH3.a 

:dr 1 . dcd; 0 , dAC , dAH . ctB- 



inlk 
rts 



a2. al. a0.d<,d5.d6.d7 
iinc.a3 
*3.4end 
edo 

aJ.a2.d6.d7 



aS.a4 

SO01O(a6),a4 
aS,a4.d3 
S0014 (a6) .as 
$0018(a6l,aS 
9do 

(a7)*,d4-d7/a3-a5 



; FwdTven ;addr2,, 
; addr3..;nc 
: ad(lrj<end 
; while 

FwdEnd ( addr 3 . addr 2 , dBC , dBH) 



; incsinci 
; base=daca 
; andabaa* 

; end* • end! 
; Fwd(base. end, incl 
: base-» = inc2 
: end2>baae 
for 

restore registers 
remove locals 
re cum 



&addrO, &dAG. k<SM. &dBH 



(iiaddrO) ,dO 

dO.dl 

dl.dl 

dl.dO 

do . fcdAG 

idAG 

dO.&dAH 

dl.&dAM 

«2.dl 

dl.&dBH 



v»» (short •)addxO 

vs««I (vsa3v) 
v*«va (v.3v) 
dAC-v3 
dACs -dAC 
dAH-v 
dAH*-va 
vs«b3 (vssBv) 
dBH»vs 



iaddxl , &addrO , idAG, 4dA}i , idBH 

(&addxl),dC ; vs' (shore •) 
dO.dl 
dl.dl 



dl.i 
dl.dO 
•2,dl 
dl.dO 
dO.tdAC 
dl.dO 
dO.tdAH 



dO 

• 3.fc( 



(dBH, (laddrC) 



; vs«al 
; dBH*-vs 
; v*avs (v«3v) 
; vs«a2 (vsaSvl 
; V»«VS (Vallv) 
; dAC«-V 
! V«aVS (V8l9v) 

; dAH-av 
; dO.O 
I dSH».3 
! round dBH 
*( shore *)addrO«dBH 
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Er.gineering:KlicsCode:CoinpPict :ConvolveSH3.a 



acd.w 
acd.w 



:iaddr2). 

dO.dl 

dl.dl 

dl.dO 

dO.LdBC 

&dBC 

dO. idBH 

dl. fcdBH 

♦ 2.dl 

dl.dO 

dO.tdAH 

dl.dO 

dO.fcdAG 



vr«( shore 'laddxi 

vs<<»l ivs«2v) 

v*3VS (vs3v) 

dBCsv 

dBGs -dBC 

dBH-v 

dBH«sV9 

V9« = 2 (VSaflv) 



'■llvl 



dAH.=v 
v*svs tv 
dAC-»v 



k addr 3 . idddr2 . iaddrl . 4dAC . tdAH , 4dBC . 4dBH 



Isl.w 
add.w 
add.w 
add.w 



I&addr3) .dO 

dO.dl 

dl.dl 

dl.dO 

dO.&dAH 

dO.fcdAC 

dl , &dAC 

*2.dl 

dl.dO 

dO.fcdBG 

dl.dO 

dO.tdBH 

dO 

H.tOJM 
dO.tdAH 
fcdAH. (fcaddrl) 
»4,bdAC 
do.bdxc 
fcdAC. Ifcaddr2) 



• (short 'jaddxJ 



dAH»«v 
dAC— V 
dAC— VI 
V9««2 (V9»8vl 
v*«va (v«llv) 
dSC«-v 

V««V* (ValSvl 

dBH-»v 

dO>0 

dAH»«4 

round dAH 

•(Shore Maddrl^dAH 

dAC»«4 

round dAC 

•(Short MaddxJsdAG 



6 addr2 , &dAG . 4dAH . &dBH 

(£addr2). 
dO.dl 
dl.dl 
dl.dO 
•2.dl 



dl,& 
dl.dO 
dO.fcdAH 
dl.dO 
dO.ldAC 



(Short •)addr2 



: v«««l (vi«2v) 

I v.»V9 (v»3v| 

I V8«s3 (V9«8v) 

I dBH-vt 



DaSc^r V *addr2 . » a-J'Irl . idAG . *dAM . *dBM 
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move . w 


(4addf3) ,dO 


move.w 


dO.dl 


adfi.w 


dl.dl 




dl . dO 


add.'w 


dO, idAH 


add.w 


do. &dAC 


add.w 




add.w 


dl 4dBH 


Isl.l 


•4,'di 


suto.w 


dl , &dBH 


clr.w 


dO 


asr .w 


«4.&dAH 






move!w 


&dA>i. (iaddxl) 


asr.w 


•4,&dAC 


addx.w 


dO.&dAC 


move.w 


&dAC, ((addr2) 


asr.w 


«3,&dBH 


addx.w 


dO . 4dfiH 


move.w 


idBH, (*addr3) 






macro 




Bwc] 


Sb«se,iend,tin 



' movea . 1 

move.l 

asr.l 

movea. 1 

su^.l 

movea. 1 

sub«.l 
movea . 1 

SMba.l 

BwdstaztO 

adda.a 

BwdSCartl 

adda.l 

BwdEven 

adda.l 



adda.l 
cnpa.l 
bfft 

Bwd£nd2 
addA.l 
Bwd£Ad3 



: dAM>»4 

; round dAH 

; '(shore MaddrlsdAH 

; dAG»*4 

: rouiid dAC 

: • I short 'jaddrSBdAC 

; dBH»s3 

; ^ound d£H 

; '(Short ♦)addr3=dBH 



tbase.aO 

(ine.dO 

• 2, do 

aO.aJ 

d0.a3 

a3.a2 

d0,a2 

a3,al 

dO.al 

a0,d4,d5,d7 

&ine,al 

«l.a0,d4,d5.d7 

4inc.a2 

a2,d4,d5.d6.d7 

(inc.aJ 

a3.a2.al,d4,dS,d6,d7 
&lnc.aO 
a0,d6.d7.d4.d3 
iine.al 

al,aO,a3,d6,d7,d4,d5 

&inc,a2 

a2,&end 

too 

a2.d4.dS,d7 
&iAc.a3 

a3,a2,al.d4,dS,d7 



; addrfl abate 

; dO-ine 

; dO>iae»2 

; addr3saddrO 

; addr3-»(inc»2) 

; addra-addlr3 

; addr2-.(inc»2) 

; adK3xJsaddz2 

; addrl-.(inc»2) 

; Bv.>dStarcO(addrO,dAG,dAH.dBH) 

; addrl»=inc 

; BwdStartKaddrl.^ddrO.dAG.dAH.dBHJ 
; addr2-r«inc 

; BwdCv«n(addr2.dAC.dAH,dBC.dBHi 
; addr3— inc 

; BwdOdd(addr3,addx2.addrl,dAG.dAH,dBG 
; addrO*>iRc 

; BwdEven(addr0.dBC,dBH,dAC,dAM) 
; addrl*«ine 

; BwdOdd(addrl.addrO,addr3,dBG,dBH,dAG 
; *ddr2*«inc 
; addr2<end 
; while 

; BwdEnd2(addr2.dAC.dAh,dBH) 
r addr3*.ine 

' BwdEnd3 (addr3.addr2.addrl.dAC.dAH,dB 
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ENDFUNC 
END 



Engir.eerzr.g: XlicsCode :Ccr.pPicc ;ConvciveSH3 . & 



S00I0ia6l .^4 

soon ia6; .a: 
S0018(a«l .as. 



•.c;<-fi-?/a3-a5 



endstase 

5wd I ba se . er.c . i : 
Mse- = inci 
endi>t«se 

tOT 
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Written ly: Adrian Lewis 



• Test versions of colour space ccnversions ii. C 



linciude <Memory.h> 
• include <OuicJtCraw. h> 

•define NewPointer <pcr, type, sixe) \ 
saveZonesCetZoneO ; \ 
SetZone (Systejnzoae( ) ) ; \ 
if lnil-Bipcr«(type)NewPtr(size))) { \ 
SetZone lApplicZone( ) ) ; \ 
11 (nilas(pcr=(typ«)NewPtr(ai2e))) { \ 
SetZoDe(saveZone) ; \ 
return (MemorytrrorO ); \ 

) \ 

) \ 

SecZone ( saveZon* ) : 

typedef union { 

long pixel; 

char rsb(4); 
) Pixel; 

/• Special YUV space version •/ 
•define r9b_yuv (pixnap, Yc) \ 

pixel. pixel>Ox806080"pija»ap**; \ 

r> ( shore ) pixal. rgb (1 ] ; \ 

gs (shore ) pixel. rgb (2) ; g*sg; \ 

b»(9hort)pixel.rgbI3J ; \ 

y»(b«3)-b; \ 

g»Br; \ 

V'»g*g«g; \ 

Y»-4; \ 
Y.«g; \ 
•Yc*.=Y; \ 
Y».2; \ 
U»»b-Yi \ 
V».r-Y; 

*define linit (Y. low, high) \ 

y< ( low<«2 ) 7low«2 : y> (hiBh«2 ) ?higli«2 ;y 

/• Standard YW space version - Bt.a94 CR07(0) node limiting •/ 
♦define rgb_y\jv32 (pixmap, Yc) \ 

pixel. pixel>0x808080''*pix3aap**; \ 

rs(lQno)pixel.rgb(l) ; \ 

ga(lon«)plxel.rgb[2] ; \ 

b-(long)pixel.rgb(3]; \ 

Y« (306T ♦ 601«g • 117«b)»8; \ 

•YC*. ■ lindt(Y.l«-128, 235-128); \ 

U»» (512T - «2S«0 - 83«bl»8; \ 

V*. (-173T - 339»g • S12»b)»8; 

void P.GB2YUV32flone •pjwnap. short -Yc, sherr •Vr. short -vc. int area, ine wic! 
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Engineering: KiicsCode:CoDipPict ; Colour . c 



long •piwTMp2»pi»Tap»cols. 'row. •endipix.iiap-jroe; 
sncrt 'YcZBYcwidtr.; 

•.T.iie ipi«nap<end) ( 
r ow=piMnap» width; 
vhile ipixai8p<rov(l ( 
Pucel pixel; 
•one r.g.fc, Y.U=0, v.C; 

rgb_yuv32 (pjjoTiap, Vc) ; 
rgb_yuv32 (pixmap, Yc) ; 
rgb_jnjv32!pi30tap2, Yc2) ; 
rgb_yMv32 (pixmapj , Yc2 ) ; 
□>>=2; 
V>>=2; 

•OC*- = limit (0.16-1:8,240-128); 
•Vc*-" limit (V, 16-128,240-128) : 

) 

pi«Mp» = col s*col9 -width; 
pixnap2*=col9«'COls- width; 
Yc.swidth; 
Yc2-> 'Width; 



typ^dei struct ( 

snort ry, rv, b/. bu; 
I RCB_T*b; 

OSErr RGSTabl* ( Icnfl "tib) 

RCB.Tab -table; 

int i ; 

TKz s«v«Zon«; 

NewPointer (table, RGB.Tab*. 25«-sixeof (RGB.Tabi ) : 
♦t»b»(lon9 •) table; 
Jor(isO;i<128:i«-*) ( 

table [i).ry=306«i»8: 

tabl«(i).rv«173-i»e; 

tableli) .b/«117«i»8: 

tabled) .bu»83'i»8: 

forii=128;i<256;i— ) ( 

cabled) .r/s306»(i-256)»8: 
tabled) .r/=l73«(i-256)»a; 
tabled) .by=117'(i-2;6)»8; 
eableli) .bu»83* (i-256)»8; 

) 

zecurn (no£rr) : 



typedeJ struct < 

short ru, gv, bv, gv; 
) UV32.Tab; 

OV32_T4b •UV32_Table ( ) 

{ 

UV32_T*b 'table: 

in: i; 

table«iUV32_Tab • )NewPtr (236*siieof ruv32_TBb) i : 
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Engireerin?: KiicsCode :CcrnpPict : Colour .c 

£sr(irC;i<128;i.-l ( 

cafcieti) .rus:2 8.( 14 3«'i»lO) ; 
:atJ« (i J .gusl2 8.( -73i'i»i0) ; 
:aJ5ie(il .iJv=i28. ( 1815'i»10) : 
catle{i) .gvs-352'i»lO; 

) 

f3r(i = i28;i<2«£;i.-l •; 

catledl .ru=128. i 14 36 •! i -2 56 ) »10) ; 
cable fi] .gusl28- ( -731 • ( i-256 ) >>10) ; 
:able(i) .bv=126- ( 1815' ( i-236 ) >>10) ; 
cabled] .gv«-3S2' ( i -256 ) >>10 ; 

) 

recumi cable) ; 



cypedef scmcc ( 

long a, v; 
) OV32Tab: 

OSExr UV32Table(long ••tab) 

( 

long •ytab; 
UV32Tab -uvtabj 
inc i : 
THz save Zone; 

NewPointtr ( • tab. long^ , !12*sizeof ( long) ♦512 'siieoi (i;v32Tab) ) ; 
ycabs'cab; 

uvt«b« (UV32T«b* I tytabr 512 1 ; 
for(i.-256:i<256;i«.») ( 
long yyy, spr 

sp=0xO00000fe4(i<-128?0:l>127?2SS:i-»12a) : 
yyy»«p» yyy«-8; 
yyyissp; yyy<<-8f 
yyyl»ap; 

y tab [ 0x0 00 0 0 1 f f 4 i ) syyy ; 

) 

for(i=-256:i<256:i»»l ( 
long ru.gu.bv.gv: 

zu^Oxttittit* t (143««i»10); 

gusOxOOOOOlJe t (-731«i»10) ; 

bv=0xOOOO01fe « (1815'i»10); 

gvrOxOOOOOlfe i (-352*i»10); 

uvtablOxOOOOOlFFii] .u.((rv«8) lgu)«8; 
uvcab(0x000001FF&i] .va (gv«8 ) Ibv: 

) 

retuz7i(noErr) : 



typtdet struct ( 
short u, vj 
) UVietab; 

OSExr OVl6Table{long ••tato) 

( 

short •ytabj 
UV16Tab 'uvtab; 
inc i: 
THx save Zone; 
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Enqineering: 



Newpcinter ( •cab< long* , il2'si2eoI (shor 
y-ab=M short "Itab; 
uvtab. iUV16Tati*)iytafc(512) ; 
far( i=-256: i<256;i..) ( 
Icng yyy- sp: 



,csCode:Ccx.p?ici :Coicur .c 
;i2'si2eo£ ;-JVi6Tabi ) ; 



sp.OxOOOOOOlet I ! : 
yyy = sp: yyy« = 5: 



:-129?0: j>1:t-255: 



r(i.-256:i<256:i — ) ( 
long ru.su.bv.gv; 

ru=Oxfi£fff«e ' (I436'i»13) 

gu=0x0000003e l-731»i»lJ) 

bvsOxOOOOOOJe & I1815*i>>13) 

gv.0x0000003* t. (-3S2<i»13) 

\jvtab(Ox000001FFti) .us( (ru<<5) ICW)' 
uvtablOxOOOOOlFTti) .v=(gv«<5) Ibv; 



sa 01 ?(char)val:v 



• Standard YW spac* version • 
ieline yuv_rgb32 ( pixmap, Yc I \ 
YsCYC— )»2; \ 
pixel. rgbCU'OvertY-r); \ 
pixel. rgbt2) "Over tY»g); \ 
pixel. rob(3)=overlY.b); \ 
*pijanap«*spixel . pixel ; 



void YUV2RGB32 (long -pixmap. short -Yc, short 'Uc. short 'Vc. int 

long •pi»Lap2»pixmap«cols. 'row. •enc«pijOBap»ar«a; 
short •Yc2=Yc-width: 

while (pi»nap<end) ( 
rowspixinap*width; 
while (pi30Mp<rowi I 

Pixel pixel; 

long r,g,b,Y.U,V: 

Os (♦Oc**) >>2.• 
V.|•Vc♦♦^»2.• 
r:128*(1436•U»10) ; 
g8l28*l-731»U - 352»V»10): 
b.l28»I1815»V»10); 

yMV_rgb32 (pixjnap, Yc) ; 
yuv.r gb3 2 ( pixMp, YC ) ; 
yuv_rgb32 (pixjnap2 , Yc2 1 ; 
yuv_rgb32 (pixnap2 , Yc2 ) ; 

pixnap»»eoi3»coli -width; 
pi»nsp2«>col.a'»col9-width: 
Yc-ewidth: 
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Engineering: Klics Code :Comp Pice :Cclour . c 



^define r5b32_yuv(pi»Mp.Yc) \ 

pixel. piJ««l = 0xB08080**pijonap»»; \ 
ripixel. r7D( 1 1 ■ \ 
g=pixel.r3bI21 : \ 

Y-^Uabi»foxr?4r) .ry ♦ (g«2 ) -table(OxFFlg) .ry-tabl« I OxFFig] . by ♦ cablelOxFFSb 
•YC»* = limit(Y,a€-128, 235-1281; \ 

U— (r«l) -<3 -cable lOxTFio) .rv - table I OxFTSb) .bu; \ 
v». (b«l) -fl -table (OxFTlrl .rv - table [ Oxrrtg) .bu; 

void RGB32YW(PGB_T*b 'table, long •pixmap. short 'Yc, short -Uc, short 'Vc, int 

.( 

long •pixiTiap2»pi3anap*col8. 'row, •end»pi«Bap»area; 
short •Yc2=Yc*width; 

while(pijen>ap<endi ( 
row»pixm«p»widthj 
while (pixntap<rov) ( 

Pixel pixel; 

long r.g.b.Y.DsO.VaO; 

/• rob32_yuv(pijaBap,Yc) ;•/ 

pixel. pixel«0x80t080**pix>nap**; 
r'pixel.rgbll]; 
g>pixel.rvb[a]; 
bepixel.rgbOJ; 

y» (table fOxFPtrl .ry ♦ (g«2)-tableI0xrFfcBl .ry-cablelOxTTigJ .by • tabl 
•Ye— = limit (Y. 16-128. 235-128); 

0*. (r«l) -g -t»bl«{Oxrrig) .rv - table (OxITtb) .bu; 
V*- Jb«l) '9 -tablelOxFFtrJ.rv - tablelOxfTW] .Du; 

ryb32_yuv(pijaBap,yc) : 
rgb32_yuv (pixnBp2 . YeS ) j 
rgb32_yuv (plMBap2 , Yc2 ) : 
U»«2; 
V»s2; 

•OC**«li»ittO,16-128. 240-128) ; 
•Vc^^'liAitiV, 16-128. 240-128) ; 

pixinap*»coli*cel»-width: 
pijanap2 * ■col8-»cols-width; 
Ye*-widch; 
Yc2« -width; 



♦define yuv_rBb32x2 (piaonap, Y) \ 
pixel. rgb(i]»over(Y*r); \ 
pixel. rgb(21-ov«r<Y*9); \ 
pixel. rgb(3J»ov«r<Y-»b); \ 
pixaap(colt]>pixal. pixel; \ 
• p ixsap^ * E p ixa 1 . p ixe 1 ; 

void YUV2KGB32x2(UV32_Tab 'table. long 'pixmap. short 'Yc. short 'Oc, short 'Vc. 
' long •pijanap2»piJonap»:»col«. Tow. 'end.pixmap-are*; 
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Engineerir.g: KliCsCcdeiCompPict : Colour .c 



long Ycld='Yc>>2. Yold2 = 'Yc2»2; 

rowapijoT>ap»width' 2 ; 
while (piMrap<row) ( 

Pixel pixel: 

long r.g.b.Y.U.V; 

UaOxOOFFS ( (•UC»»1>>2) ; 
VsOxOOFFt ( (•Vc*»)»2) ; 
r.cailefUl .ru; 
g=catlelUl .gu*tat(le (V) .gv; 
b.cai3le(V) ,bv; 

Y=CYC+*)>>2; 
Yold=(Y-Yold)»l; 
yuv_rgb32x2 (pixnap, Yold) ; 

YoldaY; 

yaiv_rgb32x2 (pixmap, Yold) ; 
Y»CYC»*)>>2; 

Yold=(Y.Yoid)»a; 
/uv_rgb32x2 (piioBap, Void) ; 

YoldsY; 

yMv_r9b32x2 (pinnap, YoldI : 

Y.CYC2*^)»2; 
Yold2=(y»Yold2)»l; 
yuv_rgb32x3 (piJonap2. Yold2 ) ; 

Y«Sld2.Y; 

yuv_rgb32x2 (pi»tap2. Yold2) : 

Y=CYC2*^)»2; 
Yold2«(Y-Yold2)»i; 
yuv_rgb32x2 (pi»iap2 , Yold2 ) ; 

Y0ld2»Y; 

yuv_rgb32x2 (pixMp2 , Yold2 ) : 

) 

pix3Mp« = « 'cols -2 'width; 
pixmap2*s4 *col3-2'vidCti; 
Yc-»widch; 
Yc2 » -width; 



•define yuv_rgb8 (pixel . Yc, indax, ditb) \ 
Ys-Yc**; \ 
Y«m3; \ 
Yt- 0x3F00j \ 
Via 0; \ 

pixel.rgb(ind«x)-t«bl«{Y) .rgbldich] ; 

void YUV2HCS8 (Pixel 'table, long 'pixnap, short -Yc, short •Oe. short 'Vc, int a 

{ 

long •plXBap2«pixnap*cola/l. *row. •end«pixRtap-faraa/4 ; 
shoart •Yc2»Ye»*»idtto; 

whileipixjB«p«end) ( 
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Ensineering : Ki i csCode :CcmpPicc : Colour . c 



while lpija)ap<rov) ( 

Pijc«l pixel, pixel2; 
long Y,U,V; • 



yuv_rgb8 (pixel . Yc, 0. 3 ) ; 
yuv_f gb8 (pixel , Yc , 1 . 0 ) ; 
yuv_rgb8<pixel2,Yc2.0. 1) ; 
yuv.rgbS (pixel2,Yc2.1,2) ; 

U.'Dc**; 
V='Vc-»»; 
U».2; 
V».6; 

0= (UiOxPO). I (VSOxOF); 

yvv_ rgbS ( p ixe 1 , Yc , 2 , 3 ) ; 
yuv_rgb8 (pixel, Yc, 3, 0) ; 
ruv_rgb8(pixel2,Yc2,2. 1) ; 
yuv_rgb8 ( pixel2 . Yc2 , 3 , 2 ) ; 



pixnap*' (cols*col9-widch) /4: 
pijariap2*= (col•♦col9-wlach)/«,• 
Yc♦«lwidth,• 
Yc2♦•width; 



iel.pixel2,Y, index, dieh,dith2> \ 



YW2RGB8x2 (Pixel •t«ile,long •pixmap, short 'YC. short 'Uc, short 'Vc, int 
•and>piMn3Lp*area/4 : 



rowepi3cnap»width/2 ; 
while (pixmapcrow) { 

Pixel pixel, plx«12, pixel3. pixel4; 

long y.O.V; 



0»-2> 
V»>«> 

Ob (OtOxOOrO) 
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Yold»iY*TbId)»l; 

•/•jv_rgD8x2 (pixel.cixel2. Y. 0. j . : ! 

Vold«y: 

/uv_rgt)8x2 ipixel,pijtel2. Y. 1. C. 2 ) .- 
YoldsY; 

Yolds (Y^Yoldl »1; 

yMV_rgtSx2 (pixel,pixel2. Y.2. 3. 1) ; 

Yold=Y: 

>'uv_r5b8x2 (pixel, pixels. Y, 3, 0,2) ; 
YoldaY: 

Y=CYc2»*)«3; 

Yold2s(Y»Y0ld2)»l; 

yuv_rgb8x2 (pixei3,pixel4, y. 0.3,1) : 

Yold2=Y.- 

yuv_rgb8x2 (pixel3.pixel4.y. 1. 0,2) .• 
Yold2»Y; 

Y=CYc2-.l«3.- 

Y0ld2»(Y.Y0l<12)»l: 

yMv_rgtoex2 Ipixei3.pixel4,y,2. 3, 1) : 

Yolda.Y: 

yuv rgb8x2 (pixil3,pixel4, Y.3. 0.2) ,■ 
Yold3■V; 
pixJMP ( co 1 • / 4 ) =pixe 12 . pixe I ; 
•pixnap* ■•■pixel . pixel; 

p ixiMp2 ( CO 1 s / 4 ) "pixe 14 . pixel ! 
•pixiMpI-opixelS .pixel: 

) 

pixmap«E (cols*cols-wideh) /2; 
pijoTiap2»» (cols«col8-width) 17 : 
Yc-=widch; 
Yc2 ♦•width ; 



fine yuv_r^t)TESTlpixel, index, Y) \ 
rgb_col.red=(Y»r«B); \ 
rgb_col. greens ( Y»g«8 ) : \ 
rgb_col.blue-(Y«b«8) ; \ 
pixel . rgbl index] =Color2Index ((rBb_col ) ; 



d YUV2BGBTEST(W32_T«b 'table, long 'pixniap, shore 'Yc. short 'Uc, short 'Vc, 

long •pixn>ap2=pixmap*col8/2. 'row, •end»pi3anap*eie«/4; 
short •Yc2»Yc-kadth; 

while ipixBap<end) ( 

long Yoldc'Yc«3, Ycld2»»Yc2«3 ; 

rowspijoiap*vidth/3 ; 
whilelpi»iap<row) ( 

ROBColor rgb.col; 

Pixel pixel, pixel2: 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94;0O6r7 



-73J - 



Engineering: icsCoce :CciiipPict :Colour . c 

long ^ r,s,b,Y,O.V; 

UaOxOOFFt ( ( 'Uc— ) »2 1 ; 
V«OxOOFTK (•Vc*«)»2) : 
r.cable(U] .nj; 
g>c&bla(U} .gu«cahle[V] .gv; 
bsca£ile{Vl .tv: 

Y=CYc»-)»2; 
Y0ld=(Y-Y0ld)»l; 
r9b_col . red» (Yold*r<<B) ; 
, rgb_col.gre«n=(Yold»g«8) ; 
r9b_ceil.blue-(Yold-»b«8) ; 
pixe 1 . rgb [ 0 ] sColorS Ind«x I &xgb_col ) : 

Yold-Y; 

yuv.rgbTEST (pixel. l.Yold) ; 

Y=CYc—)>>2; 
Yold»(Y»yold)>->X; 
yuv.xgbTEST (pixel. 2 , Yold) ; 

Yold»Yi 

yuv.xgbTEST (pixel , 3 , Yold) , • 

Y«CYC2*.1»2: 
Yold2«(Y»Yold2)»l; 
yuv.rgbTEST (pixtl2 , 0 , Yold2) ; 

YoldSaY; 

yuv.xgbTEST (pixe 12, l.Yold2); 

Y«CYc2-»-»)»2; 
yold2s(Y*Yold2)»l: 
yuv.xgbTEST (pixel2 , 2 . Yold2) ; 

Yold2aY; 

yuv.xgbTEST (pixel2 . 3 . Yold2) ; 

pixmap Icols/4 1 spixel . pixel; 
•pi»nap**>plxel .pixel. ■ 

pi)cnap2 (cola/4 )>pixel2.pixel,- 
•pxMnap2'»«spixal2 .pixel: 

) 

pixaap*' (col9*ccl9-widCh) /2; 
pixmap2*x (cola«col8-widtb)/2; 
YC»»width; 
Yc2»»width; 
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wriccen by: Aclrian Lewis 



spaca csnvarsions 



machine mc68030 
sefl -kiics* 
include 'Trapa.a' 



add.l 
Isr.l 
add.l 
Isr.l 

.DOV* . 1 

add.l 

fflOV«. 1 

add.l 



mov«. 1 
sub.l 



LAAGB. (row, loO. lol, iaO, fcnl 



&nO , koO 

inl.4ol 
«l.&ol 



too, lUUlCB) 
&row.LAIu;B 
(oO. ILAXCBl 
(row.&UtCB 
tol. (URCBI 
4xow,&AK;b 
&Ol. (&UUiB)'» 

UU. <4AfU:B) 
6Z0W,4ARQB 
fcnl. (LMtSB) 
fcrow.UUtCB 
&nO. (tAXCB) 
Lrow.&ARGB 



interpolate first pixel 
intezpolace first pixel 



tAXCB. fcrow. too. tel. tnO. tnl 

too. (»ARCB> 
fcrow.fcARCB 
401. ((AKCB)" 

4al, (lARCB) 
fcrow.LAACB 
taO, I4AKCB)» 



macro 

\T^fCa32 4AU.&AV,tTAB 

add.l 43048, (TAB : move co uvcab 

meve.w (AU.dl : Load U 

Isr.w t2.dl 

and.w •SOirr.dl 



Copied from 10340491 on 04/01/2005 
cjiiDCTiTiiTP «:wcrr /nin c 



wo 



PCT/GB94/00677 



- 733 - 



movB.l 
mov«.w 



move.l 



movc.l 
Isr.w 



Engineering: KlicsCode:CcmpPict :Ccloi 

(4TAB,dl.w81 .dO ; OV now rg lui 

LAV.dl : Load V 

• 2.dl 

♦SOirr.dl 

4(5TAB,dl.w8),dO ; 'JV now rgb 

dO.dl ; ] copies 

d0.d2 

dO,d3 



fcAY. &TAB. iRCBO. iRGBl 

uy,d4 

•2.d4 

•S01Fr.d4 

(&TA£,d4.w*4) ,&RCB1 



«2.d4 
*S0irP,d4 

((TAB.d4.w*4),tRC80 



msv.l 
andi.l 

btat . 

b«i.» 

btsc 

beq.a 

andi.l 

bra.t 

ori.l 

btac 

b«q.a 

beat 

b«q.8 

andi.w 

bra. a 

ori.w 

beat 

beq.a 

btat 



(MSB 

uu:B.d4 

•$01010100,d4 

•24, d4 

9bitl6 
•23, (RGB 
«poa23 

*S0ODOttk\tgGB ! 
«bltl6 ^ 

• SOOffOOOO,(IlCB ; 
*16,d4 ; 
•bits i 
•1S,£RCB 
•poal6 
•S00ff,&RGB 
•bits > 
«SffOO,»CB 

te,d4 

•«nd 

• 7,UISB 
(RGB 

• S00f«2efa,«RaB ,- 



copy pixal 

%na it thia rgb 

if not thea 9uit 

R ov«rflow7 - 

a not then contiaua 

teat aiga 

i( poaitlve 

underflow acta R to 0 

do next bit 

overflow aeta R to 2SS 

G overflow? 

if not then continue 

teat aign 

if positive 

underflow aeta C to 0 

do next bit 

overflow seta C to 255 
B overflow? 
if not then contiaue 
test aign 
under/over flow 
tnaak RGB ok 



&AM, «J>0. &01, 602, fc03 
«D0,d4 
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add.l iDl.d4 

add.l &02.d4 

add.l lD3.d4 

andi.l •S03e3e3eO. d4 

TOV« .1 d4 . tAH 





HASHCMP3; 


LAH. &00. iDl. (02. i.Dl 






move. 1 


&O0,d4 






add.l 


(01. d4 






add.l 


(02, d4 






add.l 


(03. d4 






andi.l 


*S03e3e3e0.d4 






cnp.a 


(AH.d4 






endffl 






OUT32X2 


FUNC EXPORT 




PS 




e 




tabic 


SS.L 


1 




pixm«p 


DS.L 


1 






tlS.L 


1 






DS.L 


1 




V 


DS.L 


1 






OS. I, 


1. 




heiyht 


DS.L 


1 




rowByt* 


DS.L 


1 




pi»sap2 


DS.L 

Qn» 


1 




LS 


RXCORB 


O.OECR 






DS.L 


1 ; siz«of( short )*Yrow 


■ 2 •width 


0_ex 


DS.L 


1 ; X end addreai 


. 0»0_ix 


U_ey 


DS.L 


1 ; y end addzess 


r u*width-heiffht» 


U_xx 


DS.L 


1 ; si2eof( shore )*OVrow 


a widch 




DS.L 


1 ; liiBof (Short )*Yrow 


■ 2 •width 


P_y 


DS.L 


I : 4'rowBytes-siieof (Ions) • 


Prow m 4*rowBytes-width 


LSize 


EOU 
QiDH 








aO - Y, al 


- 0. a2 - V, a] - pixmap. a4 - cable. aS - pixiaap2 




dO • igbOO, 


dl • xgbOl, d2 - rgblO. d3 - rybll. d4 


- spare. d6 - oldO, d7 




link 


a6.*LS. LSize ; inc. width. 


fand and rovend art loca 




movem.i 


d4-d7/a3-a5, • (a"») ; score regisc 


ers 




move 


SR.dO 






mov«.l 


PS.y(a6),aO ; Y=Yc 






mova.l 


PS.UiaO.al ; D>Uc 








P5.V<a6),a2 : V.vc 








PS.pixnapcaO ,a3 : pmspijonap 






mova.l 


PS.cable(a6) ,a4 ; cabscable 






nova.l 


PS.pix]nap2(«6),a5 ; pn2spi»>ap3 






move.l 


PS.widch(a6),dO ; LOAD width 





dO.LS.D_iJcla6) 
PS.heichtla6).dl 
dO.dl 



SAVE 0_ix 
LOAD height 
vidch^heiohc 
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Znsineering:KlicsCcde:CcirpPic::Colou: .a 



width'h«i9hc/2 

SAVt U.ey 

width's 
SAVE Yl 
SAVE Y_y 

■width '8 
U3A0 rowfiytee 

rcwByces*4 

rowBytea • 4 -width • 8 
SAVE f_y 



: LOAD U.ixB 
; P.U_ixB 
; SAVE U.exfl 

; uv2robCO.., 'V**) 

: load Yrov 
add Yb CO RGB values 
add Ya to RCB values 



if overflow 



Isr.l 


#l,dl 








cl,LS.tJ_ey(*£) 


add.i 


dO.dO 


wve. 1 


dO,LS.Yl(a«l 


move. 1 


dO,LS.Y_y(a6) 


Isl.l 


• 2.dO 




PS . rowByte I a6 ) . dl 


isi.i 


• 2.dl 


sub. 1 


dO.dLl 




dl.LS.P_y(a6) 


mova . 1 


PS.rowByce(a6),d3 


clr.l 


d6 


c:x.l 


d7 




LS.U_ijc(a6) ,dO 


add.l 


al.dO 


aove.l 


dO,LS.U_ex(a6) 


UV7KCB32 


(al)* (a2) a4 




L5. Yl ( a6 ) , d4 


GrTY32 


(a0,d4.1).a4.d2.d3 


CETY32 


(aO)-'.a4,d0.dl 


move 1 


d0.d4 


or.l" 


dl,d4 


or.l 


d2.d4 


or.l 


d3,d4 


andi.l 


•S01010100,d4 


bne.s 


eovex 


HASHODT33 


(aS)«,dO,dl,d3.d3 


DPY33x2 


a3,dS,d6,d7.d0.d2 


DPY32x2 


a3,dS.dO,d2,dl.d3 


nove 1 


dl,d6 


mov«!l 


d3,d7 




LS . 0_ex < a6 ) . al 


blew 


•do_x 


add.l 


LS.Y_y (a6) .aO 


add.l 


LS.P_y(a6l .a3 


cnpa.l 


LS.t)_ey(aS),al 


blt.w 


edo_y 




(a7)-,d4-<17/a3-a3 




a6 


rts 

OVER32 


dO 


0VEM2 


dl 


OVE3U2 


d3 


OVER32 


d3 


bra 


eok 



restore registi 
remove locals 
recurs 



OOT32X2D rONC EXPORT 
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PS RXCORD * 8 

'.able DS.L 1 

pijciup DS.L 1 

1 DS . L 1 

U DS.L 1 

V DS.L 1 

wiith DS.L 1 

heigp.r DS.L 1 

rcwByce DS.L I 

Pijcnap; DS.L i 
ENDR 

LS RECORD 0 . DECK 

Yl DS.L 1 ; siiecf (short )*Yrow r 2 •width 

U_ex DS.L 1 ; X end address : U*U_ix 

U_ey DS.L 1 ; y snd address = U*width*heioht» 

0_ix DS.L 1 ; siieof (shore ) 'UVrow ■ vidth 

Y_y DS.L 1 ; siiecf (short ) 'Yrow s 2*width 

P_y DS.L 1 : 4*rowBytes-9izeoi (Icng) 'Prow a 4 •rowBytes-width 

LSiie EOO 



link 


«£,iLS.LSix« 


; inc. width, fend and 


tnuvem.l 


d4-<l"7/#3-aS,-(a7) 


; store registers 




PS,Y(«e>,aO 


; Y.YC 




PS.0(a6).al 


; U»UC 


move. 1 


PS.V(a4).a3 


; V-VC 




PS.pixinap(a6) ,a3 


; pnspixjup 




PS.table(a6) ,a4 


; tab«t«bl« 


move. 1 


PS.pixirap2(a6) .aS 


: pnScpijonapS 




PS. width ( a6 ) ,dO 


; LOAD width 


neve. 1 


dO.LS.U_ix(a6) 


; SAVE 0_ix 


move.l 


PS.h«ighc(«6),dl 


; LOAS height 


mulu.w 


do.di 


; width*height 


:sx.l 


n.di 


; vidth*hoight/3- 


add.l 


al.dl 


; 0.width*height/2 




dl.LS. -J .•/(•£) 


; SAVE U_ey 


add.i 


dO.dO 


; width«2 




dO.LS.ri(«6) 


; SAVE Yl 




dO.LS.Vo'(a6) 


; SAVE Y_y 


Tsi!i^ 


•2.d0 


; widtl:*8 




.''S.rowByre(a6) .di 


; LOAD rowciytes 


isi.i 


•2.dl 


rowPytes'« 


svb.l 


dO.dl 


rowb>'tes*4-width*8 


mova.l 


dl,LS.P_y(»6l 


; SAVE P_y 




F5.roweyt«ia6) ,05 


; load rowBytcs 


clr*i^ 


d6 


; clear old2 


cir.l 


d7 


; clear oldl 


mova.l 


LS.U.uKaO.dO 


; LOAD U_ixB 


add.l^ 


■ l,dO 


P-0_i** 




dO.L£.0.«x(aC) 


: SAVE U.exB 


VV7tiaB22 


(al)*, (a2)*,a4 


; uv2rgbCU^». 'V**) 




LS.Yl(a6),d< 


; load Yrow 


MTY32 


(a0.d4.1) .a4.d2.d3 


; add Yb to RGB values 
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Engineering : ! 


CETY32 


(a0)«,*4.d0.c;i 






move.l 


d0.d4 


or.l 


dl,d4 


or.l 


d2.d4 


or.l 


d3.d4 




•S01010100,d4 




Sover 


HA5HCHP3 2 


(a5)*,d0,dl,d2,d3 


bne.s 


Sdiff 


add.! 


•16 . a3 


move.l 


dl.de 


move.l 


d3,d7 


cnpa.l 


LS.U_ea(a() ,al 




fiao_x 


add.l 


LS.Y_y(a6).aO 


add.l 


LS.P_yia6).a3 


cnpa.l 


U-O-ey (a6) ,al 


blt.w 


8do_y 


mevem.l 


(a7)*,d4-d7/a3-a5 


unlk 


afi 


res 








DPY32x2 


asidS.'dl.'dT.dO.dS 




a3.dS,dO,d2,dl,d3 


bra.i 


0conc 


ovnua 


do 


ovni33 


dl 


OVER32 


d3 


0VEIU2 


d3 


bra 


•ok 


ENLFUNC 




rUNC EXPORT 


RTCOHD 


8 


DS.L 


1 


DS.L 


1 


DS.L 


1 



I CO RGB values 



it overflow 



' add four pixels 
copy elds 



r restore reffiseexs 
; remove locale 
return 



width 
height 
rowByte 



DS.L 
SS.L. 
DS.L 
DS.L 
OS.L 
OS.L 



RZCORB 

OS.L 

DS.L 

DS.L 

DS.L 

DS.L 

OS.L 



; si seoX (short )*Yrow 

; > end address 

; y end address 

; siseo' (short ) *tr/row 

; siseof (short ) 'Yrow 

; 2*rowBytes-sixeof( long) 'Prow 



» 2 'Width 
= 0.»0_ix 

■ U*vidth*height» 

« width 

= 2 "width 

» 2*rovBytes-width 
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DJDR 

aO - Y. al 

dO - rsbOO. 



link 


a6. ILS.LSize 




d4-d"7/a)-a5, - la?) 


move. 1 


PS.YIa6).aO 




PS.Cla6),a: 




PS.V(a6),a2 


neve. 1 


PS.pixmaptaC) .a3 




PS.t&ble(a<) .a4 


il»ve!l 


PS .pixjup2 la6l . aS 


move'i 


PS .widch(a£ ) .dO 




dO.LS.U ixia6) 


move.l 


FS. height li6),dl 


malu.w 


dO.dl 


Isr.l 


»l.dl 


add.l 


al.dl 






add. i 


do!dO ~^ * 


move. 1 


dO.LS.Ylla6) 




dO, L^.Y_y (a<) 








PS.iow6yt«ld6l ,dl 


add. 1 










dl,'t.S.P_y(a«>l 


n»ve 1 


PS.roweyce(a6) .dS 


n»ov« . 1 


L5.Yl(a6l,d6 


mov«.l 


LS.P.ixlaei.d? 


•dd.l 


• i.d7 




(al)4. (a2)*,a4 


CFTY32 


Ia0,d(.l).a«.d2.d3 




Ia0i*.<4.d0.dl 


mov«.a 


d0.d4 




dl.d4 . 


or'i 




or!a 


d3!d4 


andi.l 


«$oioio:oo.d-i 


bne.s 


eover 


HASHOUT32 


(a5)f,d0.dl,d2.d3 


DPY32 


a3,dS.d0.d3.dl.d3 


cnpa.l 




blt.w 


9do_x 


add.l 


LS.y_y(«e) .aO 


add.l 


LS.P_y(«6),a3 




LS.V.ey(a6>,«l 




»do_y 


moven.l 


(•7)».d4-d7/«3-a5 



Engineering: XiicsCoderCcmpFicc : Colour .a 



; y=Yc 

; U=UC 

; VsVc 

; ptmpijanap 

: cabscabl* 

: pn2apl>anap2 

; UlAD width 
: SAVt U_ix 
; LOAD heiQhC 

widch'heiflht 

width*heighc/2 

U*widch«height/2 
; SAvr u_ey 

width'2 
; SAVE YX 
; SAVE Y_y 

widtta*4 
LOAD rowBytea 

rewByt«s*2 

rowBytes*2-wldch*4 
SAVE P_y 



uv2rgb(*U-», "V**) 



iCor* registers 
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DVER32 
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OVER32 
OVER32 



Engineering: KlicsCcde:CcmpPicr:Coiour. a 
; remove locals 



OUT32D JUNC 



R£CORS 
OS.L 
OS.L 
OS.L 
DS.L 
DS.L 
DS.L 
DS.L 



width 
height 
rowByt* DS.L 
pixniap2 DS.L 
ENDR 



IS 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOT 

EMDR 



move.. 1 
move. 1 

move.l 
move.l 
move. 1 

move. 1 
move.l 

ITUlU.W 

Isr.l 
add.l 
move.l 
add.l 
move.l 



; si2eof( short )*Yrow 

: X end addreaa 

; y end tddraei 

; slieof (short) 'UVrow 

; Bixeof (ahort) -Yrow 

r 2*rcwBytei-9iiee« (long) 



« 2 'Width 
» U»D_ix 

» U-»«'idth*height» 

• width 

• 2 'Width 

• 2'rowBytes-wi(Jth 



PS.Y(a6),aO 

PS.tXaej.al 

PS.V(a6),a2 

PS.Fixn*p(a«),«3 

PS.ca£ile(a6l.a4 

PS.pixB>ap2(a<l .as 

PS. width (aC), do 

dO.LS.O_ix(a6) 

PS.heiBht(a6),dl 

dO.dl 

• l.dJ 

al.dl 

dl,LS.D_ey<a6) 
dO.dO 

dO,LS.Yl(a6) 
dO.LS.Yj.U6) 
dO.dO 

PS.xowByte(a«).da 

dl.dl 

dO.dl 

dl,LS.P_y(.6) 



, a4 - cable. aS - pixmapS 
d3 - rgbll, d4 - spare. d6 - Yrow, d7 

; inc. width, fend &nd xowend are loca 
; store registers 

; Y»Yc 

; 0-Uc 

; v»ve 

; pmspijo&ap 

: tah« table 

; pm2spixnap2 

; LOAD width 

; SAVE O.ix 

: LOAD height 

; width 'height 

; width*height/2 

; 0*width'heisht/2 

; SAVE 0_«y 

; width '2 

; SAVE Yl 

; SAVE y_y 

width'* 
; LOAD rowB/tes 

rowBytes'2 

rowByt e s • 2 - width ' 4 
SAVE P_y 
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Engineering: KlicsCode:Conp?ic: :Colour . 



move . 1 
CETY32 
GETY32 



or.l 
and! . I 
bne.s 



^ PS.rowByceiafi) , 
I-S.yi (a6) ,d6 



laO.dfi.l) .a4.d2.d3 
iaO)..a4.d0.dl 

d0.d« 
dl.d4 
d2.d4 
d3,d4 

<S01010100.d4 
ecver 



; load rowByces 

; U3AD 0_ixB 
P»U_;xB 

; uv2rgb I . "V. 

r load Yrow 

: add Yb CO RGB V 
add Ya CO RGB v 



; if cverflow 



addq 



; add four pixels 



LS.Yjrla6).aO 
LS.P_y(aS).a3 



«diff 



unlk 
rc» 

move. 1 
DPY32 
bra.s 
0VT1C2 
0VT1O2 

ovi:r32 

OVI3132 
bra 

ENOrUNC 



uvov 

move.w 

add.w 

and.w 

beq.s 

zaz.w 

bge.a 

bra.t 



(a7)«,d4-d7/«:-*5 



d4,-4(a5) 
a3,dS.d0.d2,dl.d3 
9 cone 



iVXL.iOV 
«S0200.4OV 

tsrcoo.&ov 

Ook 

sov 
epos 

•soirr.tVM. 
«ok 

tSFEOO.tVAI, 
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O-VLIMIT rUNC 


EXPORT 


' rix dO, d4 , spare 




[A'OV 


dO.dl 


swap 


dO 


'JVOV 


dO.dl 




dO 


LMOV 


d4.dl 


swap 


d4 


LVOV 


d4.d: 


swap 


d4 


res 




EUEFUNC 




macro 




UVOVER 


SU. iV 


move.l 


•S02000200,dl 


nwve . 1 


dl,d2 


sdd.l 




add.l 




or.l 


02. dl 


ar.di . X 


«SFC00rCO0,dl 


beq.s 


etjvoic 


bar 


UVXIMIT 



macro 

GETOV fcAU. (AV, ISf. tOV 

mova.l (LAU)*,&SP 

nwve.i (tAV)»,tOV 

UVOVER tSP, iOV 

l«r.l tS.&UV 

andi.l •$03e003eC.&SP 

andi.l VSOOlFOOir.tOV 

or.l iSP.tnV ; UV.»S00UV00OV 

swap &nv 



GETY lAY.ilND.tOV.tRO.tRl 

(2*1 YrYOYl 
(«) Y»Y0XXY1«C 

(2) y=Yiov 
13*) R0s0123 (YD 
(4) y=yoxx 

(2) y-YOOV 
(3*) Rl-0123 (YO) 

endn 

macro 

UV8 UO}, 4AV. tSP, kW 

mova.l l&AU)4.&SP 
mov« . i ( t*V) ■» , tDV 

UVOVZR tSP.tUV 



Isl.l •S.&Rl 

andi.l •SFCOOFCOO, 4.11 

or.w tUV,*Rl 

move.l (&ZMD,iRl .v*4i,iR0 

swap &R1 

or.w iUV.tRl 

move.l (&JNC,&R1 .W4),m 
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Engineer ir.g ; :<liC£Code:CompPict : Colour .a 

•2.4SP 

1*6. tUV 

•SOOFOOOFO. 4SP 
•SCOOFOOOF.iLV 

iSF.iUV ; UVriSOCUVOOW 

iUV 



swap 

move . b 

move . 1 



&y. IIND.4UV,&D0.&E1 

&y,&DO 
t}, IDO 
tUV. iUO 
tSJFFF.iDO 
(IIND.&DO .W4),&D1 
4 DO 

tuv.too 

•53r7f .SDO 
(iUJO.iOO .W4),&00 



; dO.YOYl 

; dOiYOXXYlXX 

: dO.YOXXYlOV 

: dOrOYUVd) 

find ciut ent 
dO-YOXA 
dO=YOUV 
dO=OYXA/(0) 
find clut ent 



pixniap DS.L 

Y DS.L 
U DS.L 

V DS.L 
widcti DS.L 
height DS.L 
rowByce DS.L 
pixinap2 DS.L 

ENDR 

LS RZrORD 

Yl DS.L 

U_ex DS.L 

0_ey DS . L 

U_ix DS.L 

Y_y DS.L 

P.y DS . L 

LSI re £0'J 
£NDR 

aO - Y, 



' liieof lihort ) "Yrow 
X end addxess 
y end Address 
siiecf (short ) 'OVrow 
iiieof I short j 'Yrow 
J'rowBytes-siieof (long) Trow 



» 2'width 

■ 0»U_ix 

■ U'»width*hei5ht» 
• width 

■ 2«width 

= 2TcwByte9-wid:h 



linJt 


ae,«LS.LSize 


; inc. width, fend 


nusvem.i 


d4-d7/*3-a5, -(e?) 




move . 1 


PS.Yiafi) .aO 


; Y.YC 


move.l 


P5.0(a6),al 


; U«Oc 




PS.via6).a2 


; VsVc 


move.l 


PS.pixnaplaS) ,a3 


; pnspixnap 


move.l 


P5.C&ble(B6) .a4 


; tahstahle 


adda.l 


•S00020000.a4 


; tct>«ti3276e (longs 




PS.pixmap2(a6),aS 


: pm2>pi»nap2 




PS.width(a6) .dO 


. LOAD width 
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move. 1 
add.l 

neve. 1 
move. 1 
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Engineering: KiicsCcde:CcmpPict:Cciour. a 



<iO.LS.U_ix(a6) 
"■ PS.hei9ht(a6) ,dl 
dO.di 
• l.dl 
ai.dl 

di,L5.D_e«/(«6) 

PS.rowBy«:e(a6),d: 

dl.dl 

dO.di 

dl,LS.P_y(a6) 
dO.dO 

dO.LS.Yl (*6) 
dO,LS.Y_y(a6) 



SAVE U_ix 
LOAD height 
widch'heicht 
width'heighc/2 
U-width'h«ight/2 
SAVE U.ey 
LOAD rowBytes 
rewBvtea*2 
rcuBycos'2-width 
SAVE P_y 
width«2 
SAVE Yl 
SAVE Y_y 



move. 1 
move. 1 


PS.rowByc«(a«),d5 
LS.Yl(a«),d6 


; load rowByces 
; load Yrow 


add?i^ 


LS.0_ijt(a«),d7 
al,d7 


; LOAD U_ixB 
; P»U_ixa 


GETUV 


al.a2.d0,d4 




CETY 


(a0,d6.w) ,a4,d4,d2,d3 
(a0)'»,a4.d4.d0,dl 


; d2sX0XX. dSaXXlX 
; dO'Xyao, di*ixxx 


Dove.w 


#8.'d2 
dO.dl 

te'.dl 


; d3sX0IX 
; d3«01ZX 
; dl>lXXO 
: dl'XOlX 
: dlaOlXX 


av«p 


d4 


; next OV 


GZTY 

tnove.w 

lar.l 

GETY 
move.w 

Isr.i 


(aO.dC.l) ,a4.d4,d0.d3 

d3,dO 

(B.dO 

d0.d2 

(aO).,a4,d4.dO,d3 
d0.d3 
02 

«8.dJ 
d3.dl . 


; dOsX3XX. d3sXX3X 

; d03XX23' 

; d2.0X23- 

; dOsXXXa. d3c3XXX 

; d3>3XX3 

; d3rX33X 

: d3sXX23 

; dl>C123 


move . 1 


da. («3.dS) 
01, la3)* 






d7,al 
9do_x 




add.l 
add.l 


LS.y_y'(e6).aO 
LS.P_y(a6).a3 




cnpa.l 
blew 


LS.U_ey(a6) ,al 
•do_y 




mcven.l 

unlk 

rca 


(a7)«.,d4-d7/«3-aS 
) return 


restore regiscers 
remove locals 
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B»cve . w 



swap 
la:.i 
Isl.l 

mov«.b 
anai.w 



movc.b 

andi.w 
move.l 

RIOVC.W 

tnov«.w 



Isr.l 

move.w 

endm 
macro 
y8x2a 



move 

nwv«, 

move. 



Id 



dC. &olcl 
•l.toid 
iLV.ioid 
•S}FFF.i( 
(tIND.lold 
dO.told 
iuv.do 
»S3rrF.dO 
(tIND.dO.w 
dl.(l3 
d2.dl 
d3,d2 
d2 



dO 

dO.&old 

«l.(old 

tuv.told 

•S3FrF.4old 

itlND.iold .W4),d3 

d0.4old 

tUV.dO 

•SJFFT.dO 

(iniD.do.w4) .dO 
dO.dl 
d3,d0 
dl.d3 
dO 

«8.dO 
«8.d3 

d0.d2 
dJ.dl 



&AY.&nR).<UV.dl.d3 

*3.d2 

iUV.d2 

•S3FFr.d2 

(4IHD,d2.W4) ,da 

02 

(OV.dS 

• S3FTT.d2 

l&IND.d2.W4) ,02 

dl.dO 

d2.dl 

dO,d2 

dl 



; 141 Y.YOXXYIX/ 

: (4) YsYlXXYOXX 

; (2) OldiOld'YO 

■ (4) old=(cld-.YOI/: 

; (J) old=YIOUV 

; (4) oldrOYUVdO) 

; (J») dl=XlX3 

; (J) old-YO 

; (2) Y=YODV 

; (4) y=oyir.'(Oi 

; (2*) d2>0X2X 

; 12) exg.w dl,d2 

: 12) d:sX12X 

; (2) d2sOXX3 

: (4) d3:X30X 

: (4) dl<12XX 

; (4) d2:30XX 

; (4) YrYlXX 

: (3) old>old*Yl 

; (4) old«lo:d-Yl)/2 

; (2) old»YIlU\' 

; (4) oldnOYUVdl) 

; (2*) d3aXlX3 

; (2) oldail 

; (2) YsYOtW 

! (4) Y«OYW(0) 

; (2*) dO>>OX2X 

: l2) exg.w d0.d3 

(21 .10.0XX3 

(2) d3-X12X 

(4) dO-X30X 

(4) dOaxxao 

<4) d3>X12X 

(2> d2-3030 (YiYOYi 

(2) <11^2121 (YiYOYi 



(2 



(4 



YsYOYl 
YsYOXXYlXX 
Y=Y1UV 
4) Y.OYUVIYa) 
2*) ell. 0123 (YD 
4) YsfOXX 
2) Y.YOUV 
4) Y=eYUV(YO) 
2*) d2>0123 (YO) 
2) exg.w d2.dl 
2) dl>0123 (YIYO) 
d2:0133 (VOYl) 
dls23Dl (YOVl) 



Y8x2to 
GETY 



4AY.4IND.tUV.dl.d2 
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move.l * 4Ay.(J2 : (2.) y^yOYl 



nove.b tuv,d2 (2) 

andi.w •S3FTF.d2 



YrYlUV 
I YsOYUVfYl) 



7 * • I I r = uruv(TlJ 

move.l (4IND,d2.W4) .(31 ; (2.) dl,0123 (YD 

^ d2 ; (4|. YrYOXX 

nove.b iUV.dS ; (2) YrYOtJV 

andi.w "SJFFF.di .- («; ysOYUV(YO) 

•-neve.l (ilND. d2 . W4 ) . d2 : (2.) d2 = 0123 (YO) 

ror.l »8,d2 ; (6) d2=3012 (YO) 

ror.I «8,dl (6) d:=3012 (YD 

mcve.w dl.dO ; (2) txg.v d2.dl 

mov*.w d2.dl ; (2) d:=3012 (YIYO) 

mcve.w d0.d2 ; (2) d2«3012 (YOYD 

s^aP dl ; (4) di=i230 (YOYD 

rot.w 18, di ; (6) da. 1203 (YOYD 



width 

rowByte DS.L 
pixnap2 DS.L 



RECORD 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 



RECORB 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOT 



; aiieof (short) 'Yrow 

; X end address 
y end addreaa 
siieof ( short ) 'CVrsw 
siieof (Short ) 'Yrow 



4*rowByte! 



lizeof (lono)*Frow 



. 2*width 

■ U-0_ix 

! U*wldth*heiQht» 

■ vidth 

' 2 'Width 
4 • rowBy t«s -width 



move.l 
move.l 
nove.l 

lar.i 



PS.Y(a6) ,«0 

fS.V(*6).*l 

PS.V<a6),«3 

PS.pixaap(a6) .«3 

PS.tabla(a6).a4 

•$00020000, ^4 

PS.plxBar3(a61,aS 

PS.width(a6),dO 
dO.LS.O_ix(a6) 
PS. height (a6) ,dl 
dO.dl 
• l.dl 



; Y»Yc 

; U»Dc 

: V.vc 

: pnspixnap 

; c&batahle 

! t«b»»32768 (longs) 

; pm2apix>nap2 

I LOAD vldth 

SAVE D_ix 

LOAS bcigfat 
vidth*hei0ht 
width'heiffiJt/2 
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add.l 
move . 1 
add.l 
move. J 
Dcve . : 
mcve . 1 
add.l 
add.l 
s-a£ . : 
xove . 1 

move . 1 
clr.l 
clr.l 

?do_y move.l 
add.l 
n»ve . 1 

*do_x GETOV 

YBx2a 
move.l 
add.l 

add.i 

move. 1 

y8x2b 

add.l 



YSxJb 
move . 1 

3Ub.l 

sub.i 
sub.i 



!.l 



al.dl 

l:.LS.U_eyia6) 
dO.dO 

dO,LS.Yl(a6l 

dO. LS. Y_y(a6) 

PS.rowByteia6) .dl ' 

dl.dl 

dl.dl 

dO.dl 

dl.LS.P_yia6t 



PS. I 



>wBycela£) ,dS 



LS.O_ijc(a6),dO 
al.dO 

dO,LS.O_«xia6) 

al.a3.d0,d4 

(a0).a4,d<;.d6 
d2, (a3) 
dS,a3 
dl. Ia3) 
dS.aS 

LS.yi(a6).dO 
(aO.dO.wi ,a4.d4; ,d7 
d2, (A3) 
dS.a3 
dl. (a3)« 

d« 

i4.a0 

LS.Ylla6),dO 

(aO.dO.wj .a4,d4; .d? 

dl. (a3l 

dS.aa 

d2. Ia3l 

dS.a3 

ia0)..a4.d4;.d« 
dl. ia31 
dS.a3 
d2. ia3l« 



U.width*height/2 
SAVE U.ey 

widch'2 
SAVE Yl 
SAVE Y_y 
LCAD rcwBytea 

rowByces*2 

rowB>ces*4 

rovBycea*4-width'2 
SAVE P_y 

load rcwByces 



U5AJ3 0_ixB 

P»U_ixB 
SAVE U_exB 

; d4sO0UV0OUV (10) 

; calc d2.dl pixels 



3a. 1 



unl)c 
rti 

omrvtK 



(a7)».d4-d7/a3-aS 
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iRCB.iy.tO.tV.tAY 



ecrl.l 
clr.w 
tr.cve . D 





4 ' a4 . dl . w'S ) , do 


; dC:by,bu 






; U-«bu 






; dOabu.by 


movw.w 


dO,6Y 


; Y=ty 






; {ahorOB 




dl.dl 


; B«.2 


add.w 


dl,*V 


; V»>B«1 


Isr.l 


«6.d2 


; plxel»a6 


clr.w 


dl 


; G.O 




d2.dl 


; G-pixel[31 




(a4,da.w8) ,dO 


; dO«0iy,gv 


SUl3.w 


dO.tU 


; U-»gv 


swap 


dO 


dOsQv, 9ry 


sub.w 


dO,6Y 


; Y-»gry 
d0s^b/,9u 


mov* . 1 


4 (a4,dl.w'8! ,dO 




dO.tV 














! y-*gb/ 








sub!w 






sub.w 


di.tV 


'l V..9 


lal.w 


• 3.dl 


; C«.3 


add.w 


dl.&y 


; y».»«i 


lar.l 


*8.d2 


: pix«J»>e 


mcve.l 


(a4.d2.w8),d0 


; dO»xy,rv 


sub.w 


dO.tV 


; V-.rv 


sw«p 


dO 


; dO»rv.ry 


add.w 


dO.tY 


; Y».ry 




d2 


; (ahext)R 


Add.w 


d2.d2 


; R»b2 


add.w 


02. to 




orpi.w 


«SrZ4 0.tY 


; y»-44S 


bge.s 


Cok 


: if greater 




(SFB40.tY 


; Y> -448 


bra.s 


eand 


; save 




• SOlCCtY 


; Y< 448 


blc.a 


«end 


: if less 




«S01C0.tY 


; y» 443 






; Save Y 



DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
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DS.L 








OS.- 




DS.w 




DS.- 




DS.l, 




EOU 




D^DR 




aO - Y. al - 




dO - rgbOO. ( 




liaJc 
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Engineering : Kl icsCode.-CcmpPict ; Colour .J 

; sues: (short I 'Yrow = 2*vidth 

; X end adc.-ess i U-U_ix 

; y end address = U.width*heighc>> 

; Jizeot ishor: ) 'UVrcw z width 

; sizeol isbor: ) 'Yrow = i'width 

; iTowfiytes-sueci ( Icng) 'Prow i i • rcwBytes -width 



movem. 1 d4-d7/a3-a5, - (a7) 

meve.l PS.y(a6),«0 ; yjYc 

move.l PS.0(a6),al ; u»Uc 

move.l PS.V(a6).a2 ; VsVc 

move.l PS.pixn>ap(a6) .a3 ; preapixmap 

move.l PS. cable (s6) ,a4 ; cabstable 

move.l PS. width ( a6 ) .dO ; LOAO widlh 

move.l dO,LS.U_ix(a6) ; SAVE U_ix 

mcve.l PS.heighc(aS),dl ; LOAD heiyht 

mulu.w dO.dl ; width'Peiffht 

Isr.l «l,dl ; width»hei9hc/2 

add.l al.di ; u*widch*hei9i>t/2 

move.l dl,LS.0_eyl«6) ; SAVE I'.ey 

add.l dO.dO ; wid:h*2 

move.l dO.LS.YKaei ; SAVE Yl 

move.l dO, LS.Y_y(a6» ; SAVE Y_y 

add.l dO.dO widcb*4 

move.l PS.rovByTe(««) .ai ; LOAD rowByces 

add.l dl.dl ; rowBytes»2 

sub.l dO.dl ; rovBytea*2-width*4 

move.l dl,LS.P_i'la6) ' ; SAVE P_y 

move .1 PS . r owBy t e ( a 6 ) , d7 ; 1 sad r owBy t es 

move.l LS.yi(a6].d6 : load Yl 

move.l LS.U_ix(a6).dO ; LOAD U_ixfl 

add.l al.dO P«U_ixB 

move.l dO, LS.U.ex(a6) ; SAVE U_exB 



RCB2Y (a3.d7.w) .d3,d4.d5, (aO.dS.w): convert pixel 

RCB2Y (a3)'>,d3,d4.d5. laO)* ; Convert pixel 

KCB2Y (a3.d7.w) .d3.d4.dS. (aO.dC.v) ; Convert pixel 

RCB2y (a3)*.d3,d4,d5, (aO)* ; Cuuvert pixel 



cnpi.w >srE40,d« ; U»-44B 

bge.B SokU ; if sxeaci 

move.w •$rZ40,d< : U« -448 

bxa.a 9deV ; save 

cnpi.w tSOlCO.di ; U< 448 

bit.* 9doV : it l«a( 

move.w «$01C0,d4 ; U« 448 
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bri.a 

movc.w 


9okV 

•SFE40.<i5 
Send 

• SClCCdJ 

• SOKO.dl 


V>a-448 

if greater 

save 
V< 448 
if less 

V= 448 


nove . w 


d4. (al). 
d5, (a2)» 


Save U 
Save V 


cmpa. 1 
blt.w 


L£.U_ex(a6) ,al 
9do_x 




add.! 


LS.y_y(a6) ,aO 
LS.P_y<a6) ,a3 




cnipa.l 
blt.w 


L5.U_ey(a6) ,al 
edo_y 




inovWB . 1 

unlk 

rts 


(a7)»,d4-d7/a3-a5 
a6 

; return 


xescore reciscers 
renove locals 


ENDFtmC 






macro 


tAO, *AV, tST, *UV 




ITOV-.l 

UVOVER 

Isr.l 

andi.I 

or.r 


lfcAV)*,&(7V 
iSV.tVV 
• i.tW 

«S03«O03eO,iSP 

«sooa500ir,4ov 

tst.tvv 

tuv 


uv-»«ooovoouv 








n6x2 






move . 1 
Isl.l^ 

move . 1 

svap 

or.w 


tAy,d2 
•5,(32 

•SPcoorcoo,d2 

kUV, 02 

l&rND.d2.W4),dl 
d2 

&UV, d2 

(&ZMD.d2.tr>4) ,d2 


(2») YiYOyi 
(4) YcfOXXyiXX 

(2) y»YHJv 

2*) dl=0123 (YD 
4) y«YOXX 

2) y»youv 

2-») d2»0123 (YOl 



OOT16x2 FONC 

PS RECOMS 

cable DS.I. 

piMnap OS.L 

y DS.L 

U DS.L 

V OS.L 
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wic:h DS.L 
r.eigh: DS.L 
rcwByte DS.L 
pixmapl 2S.L 
£NDR 

LS 



DS.L 1 ; sireot (short) 'Yrow = 2*wadth 

DS.L i ; X end addresa = U»U_ix 

DS.L 1 ; y end addres* ■ U»width*heighc>> 

DS.L : ; siieot (snort) 'UVrow = vidth 

DS.L 1 ; sizeof (short) -Yrow : 2*wiach 

DS.L 1 ; 4*rowBytes-siieof (long) 'Prow s <*rovBytea -width 
EOU 

aO - Y. ai - 0. a2 - V, a3 

dO - rsbOO, dl - rgbOl. a ■ 

rowend are loca 







; inc. width, fend ti 


rrcvein. 1 


d4-d7/a3-a5, -(a7) 


; store registers 


mov«. 1 


PS.Y(a6) ,aO 


: YsYC 




PS.U(a() ,al 




move.l 


PS.ViaO .a: 


.' V.Vc 




PS.pixnap(a6).a] 






PS. cable (a<),a4 


; tab«tabli 


addA.l 


*S00030000,a< 


; taLb*«32768 (longs) 


move.l 


FS.pixnap3(a6) ,aS 


■ pm3>piJOMp2 


mova 1 


PS .Width ( at ) «dO 


: LOAD width 


move. 1 


<30,LS.V_ix{a€) 


; SAVr U.ix 




PS. height (a6) ,dl 


; LOAD height 


fflulu.w 


dO.dl 


; width'height 


Isi-.l 


•l,dl 


widtb*height/2 


add.l 


al.dl 


; 0-.width*heighe/2 


move. 1 


dl,LS.U_ey(aei 


; SAVZ D_ey 


add.l 


dO.dO 


; width'2 


move.l 


dO.LS.Yl (e£) 


; SAVE yi 


move. 1 


dO.LS.Yj'(a6) 


; SAVE y_y 


add.l 


dO.dO 


widt>!«4 


move . 1 


PS.rcwByte(a6),da 


; LOAD rowfiytes 


add.l 


dl.dl 


rowBytes*2 


add.l 


dl.dl 


; rowB/CCS*4 


sub.l^ 


dO.dl 


rowBytes'4-width«4 




dl.LS.P_y(«6) 


; SAVE F_y 


mcve.l 


P£.rowByte(a6),d5 


; load rovBytea 


clr.l 


d« 




clr.l 


d7 




add?i^ 


LS.O_i3t(a«),dO 


: LOAD U_ixB 




al.dO 


; P*0_ixB 


move.l 


dO.LS.O_ex(a<l 


; SAVE O.exfl 


CETOV 


al.aS.dO.di 


; d4«ooi;vooi;v do 


GETY 


(aO) ,a4.d4.dl.d3 


; cale d2,dl pixel 




02. (A3)* 




move.l 


dl. U3) 




add.l 


dS.aS 




swap 


dl 




move . 1 


dl. Ia3l 
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aOi.l 

trave . 1 
GETY 
move . 1 
wjve . 1 
a<U.i 

move . 1 

swap 

move.l 

addq.l 
add.l 



mov«. 1 

move . 1 
sut.l 
swap 

move.l 
sub.l 

CETY 

nove.l 

move.l 

swap 

avb.l 

nove.l 

swap 

nove.l 

orpa.l 

blew 

add.l 
add.l 

cmpa.l 
blew 



Engineerinc : Kl icsCode : CcnpPic: : Colour . a 
d2. -(a3l 



.£.n(a61,dO 
aO.dO.wi ,a4,d4.(il,d2 
12. ;a3). 



«12,a3 

LS.Yl (a6) ,dO 

(40,d0.w) ,a4,d4.dl,d2 

dl. (a3) 

d2.-(a3) 

dS.a3 

d2 

d2. (a3)-» 
dl 

dl. <a3) 
dS.a3 

(«0U.a4.d4.dl..d2 
dl. (a3) 
d2,-(a3) 

<a 

dS.aS 
d2, (a3i* 
dl 

dl, U3)* 



(a7>.,d4-d'J/a3-e5 
a6 

; recuxn 



txn.txm.tw 

tAY.da ; la-l Y.YOYl 

t5.d2 : 141 YsYOXXY: 

#$pcoorcoo.d2 

tOV.dJ ; (2) Y.YIOV 

(&ZMC,d2.W4) ,dl : (3*) dl-Yl 

d2 : (4) Y-YOXX 
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endn 

C'JTie F'JNC EXPORT 

?S riCORD 8 

carle 3S.- 1 

pijonap DS.L 1 

y DS.L 1 

■J DS.L 1 

V DS.L 1 

width DS.L 1 
height DS.L 

rowByte DS.L 1 

pixmap: DS.L 1 

LS RiXORD O.DECR 

DS.L i i sixeof (short ) •Yrow = 2*width 

U_ex DS.L 1 ; X tnd address • lJ»0_ix 

U_ey DS.L 1 ; y end address » U-width*heighc>» 

U.ix DS.L 1 ; siieot ishort) 'Wrcw ■ width 

3S.L 1 ; siteof (short) 'Yrow a 2 'width 

?_v DS.L 1 ; 2'rouByt«s-*i»eot( long) •Prow ■ 2*rowBytes-width 

LSire SOU • 

ENDR 

aO - Y 



move.l PS.y(«6),«0 ; y=Ye 

novel PS.i;(a6),al ; UsUc 

moye.l PS.V(«6),«2 ; VaVC 

movs.l PS.pi)onap(«6) ,a3 ; pmspiMnap 

move.l PS. cabl«(«6) ,«4 ; tat»tahle 

adda.l •S00020000.a4 ; t4b*>32''€E (longs) 

move.l ?S.pixmtp2 la6) ,aS ; pm2spixjiiap2 

move.l PS. width ( a6 ) ,dO ; LOAD width 

move.l dO. LS.a_ix(a6) : SAVE O.ix 

move.l PS.hei9ht(a6).dl ; LOAD he\ght 

mulu.w dO.dl width'height 

Isr.l II, dl ; width* height/ 2 

add.l al.dl U-.width*height/.J 

move.l dl,LS.D_ey(a6) ; SAVE 0_ey 

add.l dO.dO ; widch*2 

move.l dO,LS.Yl(a6l : SAVE Yl 

move.l dO,LS.Y_y(a6) ; SAVE Yj' 

move.l PS.rowByt«i(a6) ,dl ; LOAD rowBytes 

add.l dl.dl rowByteB*2 

sub.l dO.dl ; rowByte8«2-width*2 

move.l dil.LS.P_y(a6) ; SAVE P_y 

move.l P5.rowByta(ae) ,dS : load rowByces 

clr.l d6 

clr.l d7 

move.l LS.U_ixla«) .dO ; LOAO U.ixB 
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cL-i5incering:K:icsCode:C=rT!pPic::Colour.a 

: SAVE U_exB 
d4=OOUV00UV ;10) 
caic 02.61 pixe; 



add. 1 


*A. do 




dO. LS.U_ex(aS) 


3ET0V 


tl.i2.d0.di 




(aO) . a4 .d«.dl,d2 


Twve.w 














LS . Yl (a6 ) . dO 


GETY 


(aO.dO.w) ,d4,d4,dl,d2 


move . w 


dl,d2 






swap 


d4 


addg.l 


*4.a0 


move. 1 


LS. Yl (a6) ,dO 


GETY 


laO.dO.w) ,a4.d4,dl,d2 


move.w 


dl,d2 






sub.l 


d5.'a3 




(a0)*,a4,d4,dl.d2 


nove.w 


dl.d2 


nove.l 


d2, 




LS.U.«x(a6),al 


blc.v 


•dojt 


add.l 


LS.y_yl'6) ■•0 


add.l 


LS.P_y(a6) ,a3 


cnpa.l 


LS.i;.ey(a6),al 


blew 


edo_y 


movem, 1- 


(a7)«.d4-d7/aJ-a5 


unlk 


a6 


rc9 




DTOFUMC 




END 



rescore r«9.iac«rs 
renova loc&ls 
recuzn 
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© C=7/right i9?3 KL:cs Limited 
Ail ri9hta reserved. 

written by: Adrian Lswis 



66000 Fast RCB/YUV code 



• pixel/r. dl - s/2g+r. 02 • b. 02 - t 



move . 1 


&Apix«l,dO 


; pixela'Apixal 


eor .1 


#300808080. dO 


: signed pixels 


mcve.b 


d0,d2 


; b«pixsir3] 


ext.w 


d2 


: b i* 6(16) bic 




dO.dl 


; g>pixeir21 


asr'w" 


♦ "J.dl 


; 2g is 9(16) bic 


swap 


dO 


; rspixeUl) 


•xe.w 


dC 


; r is 8(16) bit 


mova.w 


02.03 


: Y.b 


lal.w 


*i.03 


; Y«.3 


sub.w 


02.03 


; Y— b 


add.w 


dO.dl 


; 2g*»r 


add.w 


dl.d3 


; Y».2gT 


add.w 


dl.dJ 


; Y-»»2g»r 


add.w 


dl,d3 


; Y*»2g»r 


asr.w 


04. d3 


; Y»»4 


add.w 


dl.d3 


: Y..2gT 


move.w 


d3.bAY 


; AY«Y is 10(16) bic 


endm 






macro 






RCB2UV 


&A'J.UV 




dO - r. 


d2 - b. d3 - Y, 


dl - 0/V 


add.w 


dO.dO 


; r is 9(16) bic 


add.w 


d2.d2 


; b ia 9(16) bic 


asr.w 


• l.d3 


; Y it 9(16) bic 




d2,dl 


: Usb 




d3,dl 


; 0=b-Y 




il.kXV 


; AU-U 


raova.w 


dO.dl 


; V.r 


sub.w 


d3,dl 


; Vsr-Y 


mova.w 


dl.tAV 


; AV«V 


endn 
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Engineer : Xi icsCode : CcntpPicc :Cclcr2. a 



if iTfEJf •sec )»'nNDEFTNED- then 
•r.iit 



rge:vuv2 m*c 



mcve. 1 
mov«. 1 
move. 1 



asl.l 
move.l 
asl.l 
sub.l 

9dol mov«.l 
add.l 

ado2 rgb2y 



edo3 rgbly 
blt.a 



bit 



d4-d7/a3..(a7) 

S0008la£),a3 

SOOOC.'a6),aO 

S0010(a6).al 

S00I4la6).a2 

S00i8la6).d7 

»2.d7 

a3,d7 

S001Cla6),d4 
*2.d4 

S0030la6),d5 
• 2,dS 
d4.dS 
a3,dfi 
d4,d6 

la3)*, (aO)-» 
fal)*. (a2)i 



laO)-' 



(a3). 
d6,a3 
tdo2 
dS,a3 
a3,d« 
d4,d6 

(a3)t. {aO)-> 

d6.«3 

8do3 

d5.A3 

d7.a3 

Sdol 

(87)..d4-d7/«3 



; Y=yc 
; U«0C 
; VeVC 

; fends&rea 

; fend«=2 

; f«nd«=pm 

; widch_fi=width 

; width_b<<.2 

; inc_i>»coli 

; C0l9«a2 

; inc_b-=widch_b 

; rovendspn 

; rowend*»widthlb 

; rgb2y(pm»*, y»*) 

; rBb2uv(U**. V*^) 

; r9b2y (pnwf, Y**) 

.- rowend>pRi 

: whil* 

; pB>»»inc_to 

: rovendspm 

; rewind* "width.b 

; r9b2y(pnv*,y*») 

; rowend>pm 

; vhilc 

I pin**inc_b 

; t«nd>pn 

! whil* - 

laitore registers 



(AY. &Y, U. fcC. tB 
tAY.iY 

iY.U 



; Yr'ATf** 
: !W-»»Y12 
; 0G*-yl2 



FZXOV 4V. 4SP1, &SP2 

inov«.w 4V.4SP1 

clr.b isri 

andi.w *$3FrP,&£Pl 

aim ksri 

best «13,4SP1 

9«q 4SP2 



Copied from 10340491 on 04/01/2005 

CI IDCTITI ITT CUCCT IDt B C nCN 



PCT/GB94/00677 



» Engineering: :<iiC£C3de:Ccrr.pFicc .-Cclsr: .a 

oz.t 4SF1.4V 

ir.d.w SSP2.iV 

swap iv 

novt.w tV.iSPl 

=:r.b iSPl 

andi.w 'SJFFT.iSPl 

sna ^3P1 

test «13.t3Pl 

3eg «SP2 

or.b 4SP1.SV 

an-l.w tSP2.1V 

swap tv 



macro 

CVEKTLOW &A. fcB. &SP1. &! 

ffeve.i »srroorroo,4SPi 

move.l iA.iSPZ 

and.l &SP1.4SP2 

Isr.l >8.4SP2 

and.l 4B.4SP1 

or.i 4SP2,4SP1 

move.l 4A,4SP1 

or.l 4B.4SP1 

andi.l •SFroOFrOO. 4SP1 

beq.s Ook 

cir.w 4SP3' 

FIXOV fcA.4SPl.iSP2 

riXOV 4B,4SP1.4SP2 



: splslMSk 

: sp2=ovov (A) 

9p2=o0o0 I A) 

9p230oOo (A) 

spl'oOoO (B) 

spl>0000 (BABA) 



if no overflow 

ANDmO 

Al overflow 
Bl overflow 



move.* 
move. j 
move. ; 



&It, 4C, 4B, 4ARCB 

#e,4iG 

4B.4C 
&R.4B 



4G.4R 

4R.4AKCB 

iB.4ARCB 



12) 



CsCCCO 
CsCBCB 
B«0I10R 
BsOROK (211 
BsORCB (2) 
C>CBGB (211 
R«ORCfi (1) 
•RGB«..r9fc 
•RGB** I rst) 



4V0,4V1 
4V0 

4V1.4V0 
4V0.4V1 



: dup vO 



macro 

tJV2RGB3 (AU.&AV 
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dl - ra, d2 - ga, d? - ba. 64 - rb. i5 - 5t/5i:. dfi - bb 







; d5»512 






■ Ur'AU— 


add*w*' 




U is 10116 


T.ove . w 


d2!d3 




sdd.w 


<13.<12 


ga>3U 


add.w 


dJ.d2 


gas3U 


add.w 


d5.d3 


ba-=I12 


:d?val 


d3.d6 


ba=bb=BB 


asr .w 


f4,d2 


ga=3U»4 




tAV.di 




add.w 


dl.el2 


ga*»V 


add.w 


dl.dl 


ra«.2 


add.w 


dS.dl 


ra.»512 


DUPVAL 


dl,d4 


ra»rb=RR 


sub.w 


d2.d5 


gb«512-ga 


DUPVAL 


d:,d2 


ga>9b«GG 



i) SlCS 



endn 



(end 
count 



KECOM) 

DS.L 

DS.L 

DS.L 

DS.L 

2S.L 

DS.L 

DS.L 

DJDR 

RirORD 

DS.L 

DS.L 

DS.L 

DS.L 

EOU 

DJDR 



I - V. a4 - pmO. aS - pml 



PS.pixBiap(aS) , a4 
a4,a2 

PS.Y(a«).«0 
aO.al 

PS.D(a«),a2 

PS.V(a6) ,a3 

PS.area(«6),d7 

«3,d7 

a4,d7 

d7.LS.fend(a6) 
PS.vidthi«6),dS 
d5,d7 



pntOapijonap 
pnlspnO 
YObYc 
Yi=YO 

v.vc 

fendaarea 

f*nd*>pRiO 
sav* fend 
widthswidch 
councswidth 
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Engineering : KI icsCode.-ConpPicc :Coior2 .a 



subq.l 
nove . i 
add.l 
add. I 
add.! 

mcve. 1 
isl.l 
add.l 
add.l 
sub. 1 

UV2RG33 
FCTCHY 
TETCtfY 

Isr.i 
and.w 
l4r.l 
and.w 
Isr.l 
and.w 

1st.: 

and.w 
isr.i 



and.u 

isr.i 

and.w 

move.i 

or.i 

or. I 

or.l 

or.i 

or.l 

andi.l 

bne.s 

HKKttB 
MKRCB 

<3bi 

adda.i 

adda.i 

adda.i 

exo.l 

HHSVe. i 

capa. i 
blew 



FIXOV 
FDCOV 

rixov 

FIXOV 
FIXOV 
FIXOV 



•l.d7 
•l.d7 

d'.PS. width (46) 

d5.d5 

dS.dl 

d5,d5 

d5.LS.width!«6» 

PS.colsia6) .di 

• 2,d4 

d4.a5 

d4.d4 



v;r.t> 



bra 



!.l 



(a2)», (a3). 
Ia0)..d0,dl,d2.d3 
(al)*.dC,d4,d5.d6 
•S3FFF,dO 
•2.di 
dO.dl 
«2.d2 
d0.d2 
*2,d3 
d0.d3 
*2.d4 
d0.d4 
i2,dS 
d0,d3 
«2.d6 
d0.d6 
di.dO 
dZ.dO 
d3,d0 
d4.d0 
dS.dO 
d6,d0 

♦srroorroo.do 
9ov«r 

di.d2.d3. («4)» 
d4.dS.d6, laS)* 
d7,edo 

LS.inclaC) ,a4 
L5.inci£() .aS 
LS.vidth!a6),aO 
aO.al 

PS. width (a6 ) .d? 
LS.fend(a6) .a4 
*do 

(a7).,d4-d7/a3-a5 

d7, LS. count (a61 . 
d7 

dl.dO.d? 
d3.d0.d7 
d3.d0.d7 
d4.d0.d7 
dS.d0.d7 
d6.d0,d7 
I^.counc Ia6) ,d7 



• 1 



.• ccunc- 
: save width 
; widch*=2 
; Yi».width 
; width* =2 
; save width 
; incscoia 

; pBil»»inc 
; ccls»=2 

; iac now 2»cols-widch byt« 

; uv2rgb( 'U.**, 'V**) 

; add Ya to RGB value* 

; add Yb to RGB values 

: dOcmask 

; dl 8(16) bits 

; dl masked 

; d2 8(16) bits 
; d2 masked 
: d3 8(16) bits 
: d3 masked 
: d4 8(16) bics 
.- d4 masked 
; dS 8(16) bics 
; dS masked 
: d6 8(16) bics 
d6 masked 



line 



; pBl*>inc 
,• YO..wideh 
. Y1<.>V0 
i count swidth 
; prnO<tend 
.; while 

■• restore regiitc 
; zemeve locais 
; recuxr. 
: save count 
: ANDsO 

; A overflow 

; B overflow 

; A overflow 

r B overflow 

; A overflow 
fi overflow 
rescore counc 
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:cde:Co.-npPicc :Cclor2 .a 



if tTYPE 


( ■ seg ■ ) » •DNCETINED 




iaeo 


endif 




CREY2Y ?U>JC EXPORT 














area OS.L 


1 


width OS.L 


: 


cola DS.L 


1 






dO - WW, dl 


- vOvl, d2 - v2v3. 


• aO - pm, al - 


Y 


link 


»€. »0 


moven. 1 


d4-d7, -(a7) 




PS . pi^Gnap 1 a6 ) , aO 








PS . area t a6 ) , d7 












r5.coisiao)«aS 








^SITITTTTT d3 






add.i 








eor.l 


el3,(Jo' 


move.w 


eo,d3 










mova.b 


do. (12 


•xt.v 


d2 


ISl.W 


*3,d2 


swap 


dCi 




dO.dl 


asr .w 


»6.<il 




dl 




dO.dl 




dl 


Isl!w 


• 2.dl 


mova.l 


dl. laD* 




d2, (all* 


cn^.l 


d6,aO 


bU.s 


edo2 


adda.l 


dS.aO 




d7,a0 


blc.s 


edol 




(a7),,d4-d7 




a« 


res 




CKDFIMC 





r, d4 - width, d5 - inc. d6 



pn«pixnap 



fendsarea 

fendvspm 

widthjb-width 

inc.b>eols 

inc_b-awidch_b 

xor»S7r7P7P7r 

rowsndapn 

row«»d»=width_b 

,• WW is signed 

; d2>v2v3 

; d3av2 (10 bits) 

; d2«v2??-- 

; d2rv2v3 

,- v3 axcanded 

; d2rv2v3 (10 bics) 

; dO-vOvl 

; dlsvOvl 

; dl.vO (10 bits) 

dl.vO?? 
; dl.vOvl 
; vl extended 
; dl=vOva (10 bits) 
: 'Y.dl 
; •Ysd2 
; rowcnd>pm 
; while 
! p»*»inc_b 
I fend>piB 
while 
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-ijVC IX PORT 



DS.L 
DS.L 
ENDR 



link 


a6. to 






d4-d7, -til) 




move . i 


PS.pixmap(a6 1 , aO 










move' 1 


PS . he i^hc t a6 ) , d" 


• l"*^ 






nei^nC'si 




PS.wldth(a6f d4 


long width 






long incscois 








Isr . i 


• 2!d4 


; wldch>>s2 (read 4 values 


subg. I 


*l,d4 


: wid:h-«l 




d4 , d6' 


; count svi deft 


.■nov« . 1 


(all*. do 


' d0sx4x3 








move'i 


isoirroirr,d2 


d2»511 




d2.d3 


d3.5Xl 


sub. 1 


d0.d3 


unsigned d2 


sufi.l 


dl.d3 


unsigned d3 


Isr.l 


»2,d2 


Isr.l 


«3,d3 




move . 1 • 


d2,d0 




or.l 


d3,d0 




&ndi. 1 


•s3roo3roo.do 




bne.s 


eover 


if no overflow 


isl.w 


• e.d3 


d3«0210 


Isl.w 


• 8,d2 


d2<0430 


Isr.l 


• e.d3 


d3s002: 


isl . 1 


•8.d2 


d3«4300 




d3 . d2 


d2.4321 




d2. (aO)> 


•Fmsd2 


dbf*" " 


d6.edo2 




add«. 1 


dS.aO 


pfB-»sine_b 




d7.edol 


while •l!s--height 


tBOvem. 1 


(a7).,d4-d7 


restore registers 


unlk 


»6 


zenove locals 


res 




return 


clr.w 


dl 


ANOsO 


FIXOV 


d2.d0.dl 


A overflow 


FIXOV 


d3.d0.dl 


B overflow 


bxa.s 


•ok 




ENDFUKC 






maczo 






CCC 
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Ingir.eeri.-.g: KiicsCode : Zo~p?:: 

rT.cve.l 4V.4S.-2 ; £F2-0a02 

isi.i «e.;s;3 sf2 = io20 

cr.l kV.lSn : SP2sll22 

-cve.l iV.iSPl- ; SFliClo: 

swap iSfi ; SF1-C20: 

rave.v iS?2.lSPl ; SFlrC:22 

swap 4SF2 : SF2=22:i 

rr.cve.w 4SP2.iV ; V=0111 

move.l 4V.4AV ; 'PTTibV 

meve.l 4SFl.tAV ; •pm=SPl 



if 4TYPEI -ss^- IS'ONDETIKED' then 



FUNC 



Y2GGG 

PS RECORD 

pi.>cnap DS.L 

Y DS.L 

lines DS.L 

widcft DS.L 

cols DS.L 



di - width, d5 - inc. d6 - count, d7 - lines 



- pm, al 


Y 




linX ^ 


a6.(0 


: no local variables 




d4-d7,-(«7) 


; score regiscers 




FS.pi]aBap(«6) ,«0 


■ pmapixntap 




PS.Yta«),al 


• YsYC 




PS. lines ( a( ) ,d7 


■ long lioea 


subq. 1 


»l,d7 


lines-. 1 "■ 




PS.widch(a61 .d4 


long width 




PS.coisiaei.dS 


inc»col9 


sub.i 


d4.dii 


inc-'width 


isl.l 


•2.dS 


inc (b/cesi 


Isr.l 


42. d4 


widch»n3 


s'ibq.l 


•l,d4 


width- -1 




d4.d6 


count ■wide.'". 




(Bli'.dO 


dOsxlxi 110 bits signed 




(alL.dl 


dl>x3x4 (10 bits) 


move. 1 


•S0200C200.d3 


d3>plus 


add.l 


d3,dO 


d0exlx2 (unsigned) 


add.l 


d3,dl 


dl>x3x4 (unsigned) 


Isr.l 


•3,d0 


d0«xlx2 (10,8 bits) 


Isr.l 


«2,dl 


dlax3s4 (10,8 bits) 


nove.w 


♦S3rrr,d2 


d2sM8k 


and.w 


d2,d0 


mask dO 


and.w 


d2.dl 


mask dl 




d0.d2' 




or.l' 


dl.dS 




andi.l 


•$rF0OFFO0,d2 




bne.s 


9over 


if no overflow 


CGC 


d0,d3,d3, (aO)* 




GGC 


dl.d3,d3. (aO)« 




dbf 


de,«do2 


while -l!s--count 


addA.l 


d5,a0 


pm* * inc_b 


ibi 


d-.9dcl 
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»• ^-5ir.eerin5:Kl:csCod£::c.r,?=ir: -.CzL' 
ia"!)-.d4-dr . r« 



i3 



rescore regitcers 
remove Iccalo 
recurn 

A overflow 
B overflew 



Isl. 1 



tR, tC, UB, iARCB. 4R0W, S.XX 



<8.&C 
&B.4G 
&R.&B 



: CiCOCO (12) 

: C^GBCB (12 i 

: BsOROR (12; 

fi.OROR (211 

E=ORCB (2) 

; CsCBGB (211 

R=ORCB (1) 



sut.l 
Isz.l 
add.l 



&R.4C 



&R. (LAXCB)'< 

&B. (4ARCB)-> 
LB, (tARCBI* 



CsRCBd) 
sRCB(2) 
r G/-3 

XXsRCBC) 
■«RCB(1) 
: XX/a2 



•RGB.*=r9b ( 
•RCB«>«r9b -1 
•RCB*.<r9b < 
•RGB»»«rOO ( 



&R. (LARGE I • 
&C. (LARGBj-r 
&B, (&ARCB)- 
&B, (&ARCB)« 



•RCa-.Tgb (II 
•RGB.-srgb 11.5) 
•RGB — sr9b (21 
•RGS..xrsb (2.51 



if tTYPE( -sefl- )«-UNDEriMEO" Chen 



YUV2RGB3 FU« 

PS RZCORO 

pixrnap DS.L 

r DS.L 

C DS . L 

V DS.L 
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Er.gineering : Ki icsCode :Ccr.pPic'. : Colcr 2 . a 



■j-.azh 


DS.L 


1 




:ols 


ZS.l 


1 














?XCOKD 


O.DECR 




































row 


DS.L 
















ENDR 








aO - YO 


dl - Yl. a2 - U. *3 • 


V, a4 - pmO. aS - pml 




dO . . 6 - 


used. d7 - count 






linX 




; inc. width, fend and row«nd are loca 




mcvem. 1 


d4-d7/a3-a5,-(a7) 


; store registers 






PS.pi>3nap(a6) , a4 








a4. aS 


; pml>pnO 






PS.Y(a6) ,aO 


; YOsYe 








; YlsYO 






PS.D(a6) , a2 








FS. Vlai) , a3 








PS. area ( a6] , d7 






Isi. i 




; fend«s2 














d7, LS. fend(a6) 








PS.vidchia6) . d5 


; widChwldCh 












aar. i 


*l!d7 


; ceunt>>al 












move!l 


d7!ps.width(a6) 


; sav« width 




add.l 


dS.dS 


; width* b2 












add!l 


dS.'dS 


• width' =2 •■ 




move.l 


dS.LS.width(a6) 


; save width 












































































meve.l 


d4!LS.inc(a€) 


; save ine 


edo 




(a2).^. (a3)» 


; uv2rgbC0»-, 'V— ) 




rrrcHY 


(a0).,d0,dl.d3.d3 


: add Ya to RSB values 




riTCHY 


(al><,d0.d4,dS,d6 


; add Yt> to RGB values 




B10V«.W 


t$3FTT.dO 


; dOsnask 




lir.l 


«3,dl 


: dl 8(16) bits 






dO.dl 


: dl aaaked 




Isril 


*2.a2 


: d2 8(15) bits 




and.w 


d0,d2 


; d2 Ckas)ced 




lar.l 


<3,d3 


; d3 8(16) bits 




«nd.w 


dO.dS 


; d3 oMMkma 




laz.l 


«3,d4 


: d4 8(16) bits 




and.w 


d0,d4 


; d4 ma9)c«d 




Isr . 1 


•2.d! 


: -1? Ra5» hiits 
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Engineering : Kl icsi 



.zee .-CcmpPic: : Cclcr, 



and.w 



y.KP.CB2 

KKRCB2 

adds . 1 
addA. 1 
add2. : 
exQ. 1 
move . ' 



. 1 



mov« . 1 

clr.w 
FIXOV 

rixov 

FIXOV 
FIXCJV 

nxov 
rixov 

bra 



(30. d« 

d:.dO 
d2.dO 
dJ.dO 
d4.d0 
dS.dO 
d6.d0 

iSFrOOFFOO.dO 

dl.d2.d3.a4.LS.row(a61. 
d4.d5.d6. a5. LS.row(a6) , 
d7 . «do 

LS.incia6).a4 
LS. incia6) . aS 
LS.wid^h(ae) ,aO 
aO. Al 

?S. width ( a6 1 ,d7 
LS. tend(a6) . a4 
9do 

(a''i«.d4-d7/B3-a5 



d7,LS. count ia6) 
d7 

dl.dO.d? 
d3.d0.d7 
d3,d0,d7 
d4 . dO . d7 
d5.d0.d7 
dS.d0.d7 
LS.ccuat(a6).d7 



.••NEW save RCBa 
;*NEW save RGBb 
while 



count swidth 

pnO<{end 

while 

restore reoisti 
remove locals 
return 
s«ve count 
ANDsO 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 



tAY. ty. IR. tc. 



■Y is -129 to .127 

'fin. G«C ly. 2V ♦ 512) for ned 
SREiN. G« (Y » 1S12 - (6U/16)) - V 
l-BLUZ-Cet <y . <20 ♦ 512) for Blue . 



LAO.&AV 

&A0.d2 ; u 

.$03rr,d2 _ . BtOT. Get ;2U . 512) /4 for Blue 

d3,d6 .-Dupjor second^pair 



Ia6.d2.w«8) .d3 ;BLOT.Get 
;6!d2.w.8).d5 ;^?'c2i"5'l2"-'. 60/16)1/4 for Ore. 



'.dl 
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croruNC 

OVSRSUB FUNC 



r.5ineering:Kl;c«Ccce:Ccrrfi?ict -.Cz.iozl . e. 



.GREEN. Ge: (312 - 'tLV16) 



ilS03FF,d4 
(a6.d4 .W8) .d4 
d4,dl 



.•Dup ioz second FJir 

. RED. Get (2V • 512) /4 for Red ■■ 



clr.w 
nxov • 
rixov 
nxov 
rixov 
nxov 
nxov 



d3.d0 
d4.d0 
dS.dO 
d6.dO 

»SFF0OFT0O,dC 

d7, -(sp) 
d7 

dl.dO.dl 
d2.d0,d7 
d3,d0,d7 
d4.d0.d7 
d5.d0,d7 
d€.d0.d7 
(sp)»,d7 



if ( 



sav« count 
; ANS-0 

overflotf- 
B overflow 
A ovarflow 
: B overflow 
: A overflow 
: B cvBrliow 
score count 



ENDFUNC 
(.'■V2RGB4SUB FUNC 
t7V2RCB4 

ENOrUKC 

rrrcnY2SUB rune 



EXPORT 



omrmc 

if tTYPf 



fymtTTlTZD- -.hen 
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DS.L 
OS. I, 
ENDR 



DS.L 
DS.L 
DS.L 
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Engi.neer mc : :<i : c:C = = e .Cc.-pFir r : 



• 0. a3 • V, a4 - pmO. a5 - pmi 



PS.pixs\ap(a6> , s4 
«4.«5 

PS.Y(a6) ,«0 

PS.U(«6» ,42 
PS.V(«6),43 
PS.are<l««l .d7 

♦ 2,d7 
a4.d'' 

d7,LS.fesd(a6l 
PS.widthla6) .d5 
d5,d7 

• l.d7 
*l.d7 

d7,PS.^ 



idthcj 



d5,dS 
dS.al 
dS.dS 

d5.LS.widch(e6) 
PS.colaia6) .d4 
•3,d4 

d4,LS.rowia6) 

d4,aS 

d4.aS 

d4.d4 

d4.d4 

dS,d4 

d!,d4 

d4,LS.incla6) 



inc. widch. fend and rowend ara loca 
acor* cegiacers 

pntOspiMnap 

yo-Yc 

Yi.YO 
: OaOC 
VaVe 

fand'axea 

f endopmO 
save fend 
: widehiwidch 
councswidch 
counc>>sl 
counc-"l 



: width*. 2 

•■width 

: width* *2 

save width 
inocols 

•NEW save row 

; 'HEW pml»»inc 

cols*. 2 
•HEW cols*«2 

inc now 4 'cols-width bytes 
•MEW inc now 4-cols-wiSth byti 

sava inc 
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^ Er.gineer'-ng :/..icsCcde:CcmpPict :Cc:cr: .a 



add Yb CO RGB v 



) RGB values 



eover move. J 
clr 



FIXC3V 
FIXOV 
FIXOV 
FIXOV 
FIXOV 
FIXOV 

era 



dl.dO 
d2.dO 
dJ.dO 
d4.d0 
dS.dO 
d6.d0 

♦SFrOOFFOO.dO 
9over 

dl.d2.d3.a4,d7,dO 
d4,d5,(36,a5,(i7,d0 

lsp)*,d7 

di , ido 

LS.inc(«6).«4 
LS. ine(a6) .aS 
LS.wldcbia6).aO 
«0,«2 

PS.widch(a6),d7 
LS. tend(a6) ,a4 

Odo 

Ia7).,d4-d7/a3-a5 



d7. LS. count (a6) 
d7 

dl.dO,d7 
d2 . dO . d7 
d3 . dO , d7 
d4.d0.d7 
d5 . dO . d7 
d6,d0.d7 
LS. count la6) .d7 



pmO^sinc 

YO»«wi<Jtfc 
Y1<->Y0 
count «widch 
proO<f end 
while 

restore registers 
remove locals 

save count 

ANSaO 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



eok 



END 
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En5ineer:r.;:K: :csC:de:Ccm=Fi:: :C1l 



5 C:pyri;f>c i990 KLICS Lir 



■analyse CLITT setup and pick appropriate 
YbV->BCE ccnver ter/display driver. Create 
any :afcles necessary. 



■ inciude <Ouicl<Draw .h> 
■incluoe 'Memory. h> 



15 

•defi.-ie absviv) ( ( v l<C? - ( vl : ( v ) l 
• define NewPointer iptr , type, sue I \ 
S8veZonesGec2cn«( : ; \ 
Set:cnetSysiemZon«i)); \ 
i: inil5=ipcr» itype)NewPtr (siiei 
S«t2on«(Applic2ontl) ); \ 
li (nilsa(pcrs ttype)NewPtr(s 
SetZone(»«ve2one); \ 
return I MemoryExror ( 1 1 ; \ 

) \ 

) \ 

SetZone(saveZone) ; 

typedel struct ( 

cnar y, u. v: 
I rjV_Clut; 



i.-.t size, y. u. v, t. g. b. i; 
u.-.3i9r.ed cnar 'table; 
Vtr.'.Clut 'yuv.clut; 

siie.!'clut)->ctSize; 

litleTj.-isigned char • )NewPtr (y_[.r/ZLS'W_LZVELS'tr/_Lr.-ELS) ; 
yuv_clut= ( YUV_Clut 'INewPtr Isiie'Sijeol IYUV_Clut) I ; 

"''r«°(*ciu"->ctTable(iJ .rsb.red>>8) -:28; 
g=( 1 -clut l->ctTabl«fil .rsb.gr««n>>e ) -128; 
bs( ( *cluci ->ctTabl«(i] .z(rb.blu«»e)-128; 

yuv cluclij.y* (306T ♦ 601*9 ♦ in*bl»iO; 
yuv clutUl.u« (512T - 429*5 - 83*b)»10: 
yuv cluC(i).v. (-173T - 339*fl • 512*b)»10; 

) 

J 0 r I y » - y _Lr>;ELS /2 ; y <y_LrVELS/ 2 - 1 ; y ♦ • ) 
Jorlu»-W LrVTLS/2;U<UV_tnTLS/2-i;u»-) 
1 or I V. - wIlSVELS/2 ; v<UV_Lr/ELS/2- 1 ; v.. ) ( 

int index. error. erroz2, points. Y. U. V; 
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y.iiCsCcde :Ccr.pP:ct :CI-jc . c 



ir.dexsO; 

error2=i31072; 
pointsiO; 

;or 1 i»0: i<=si:e: !♦•) ( 
inc pcnsO. etrsO; 

if (yuv_clut(i) .y>=Y &( yuv_clut (i) .y<Y»16) 

err«»absv(yuv_cluc (i 1 .y-Y) ; 

i£ (yuv_clut(i) .u>.U it yuv.clut I i 1 . u<U»32 i 

pcs*.l: 
err»«abav(yuv_cluc(i) .u-u; ; 

if iyuv_clut(i) .v>sV &t yMv.clut li] .v<V.32) 

pcs*aX: 
err»sibav(yuv_cluclil .v-v) ; 

if (pcs>points II (pts»=points t( «rr<errorn 
errorserx: 
indexsi; 
ppincopt*: 



cypedaf union ( 
long pixel: 
unsigned cfaar 



i or (y . - Y.LEVELS/ 2 ; y <Y_LEVELS/ : - 1 ; y » 
t or t u • - 0V_ tXVILS / J ; u<OV_LEVELS / 2 - 1 ; u*» ) 
fcr(v«-WV_LEVELS/2;v<UV_LEVELS/2-l;v*»l ( 

Pixel px; 

long beee. dichi 

r ■ 32768t ♦ ((y«9) • 1436L*u ««2>; 

g > 32768L ♦ (<y«9) - 731t.''i - 352f v • 

b - 3276l(L • ((y«<9) ♦ IBlSL'v «2); 

rsr<O?0:r>65534?6S5J4:r; 
gs9<O?0:9>6SS34?6JS34:g; 
tsb<O?0:t><5534?f5«34:b; 
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rc=r»ni:7: r.r/niO-?; 
50 = 5*13107; ;sg.'13107; 
bosblU107: brD/13lO-7r 

fcaserJlS- (35T-£'g-b) ; 

dithrtase- (ro>26il?36 :0)- (gc>''863?6 :0) - ibo> 104 8 4 ? 1 : 0 ) ; 
px. r<3b(0| =di:.'i-.=2157255:dich.- 

c3ich:>Mse- ( ro>524:?3« : 0)- lgo>10484?6:0> - lbo>2621?l ;0) ; 
px.rgbll) ^dich^=213 72 3 5:dicn; 
dicfl^ba9e-l^o>7863?3c:0)-^go>2621?6:0)-'bc>524:?l:0); 
px.rgb^21=dic^l=.215?255:d^ch; 

dithrbaae- iro>10484?36:0) -(go>5242?6:0)-(bc>78e3?l:0l ; 
px.rgb(31=dith=.21S?255:dith; 

i»< (y40x3ri«ei I ( (utOxri««) I tvtOxD ; 

cableli] .pixel:px.pix«l; 

r9cum (unsigned lcng*lt&ble; 



cyp«d«f struct ( 

long r«d. gr««n. blua: 

I RGBError; 

OSErr ColourCluc (Pixel ••tatlel 

{ 

long y, u. v, r. q. b. i: 
RGBError 'err; 
THx saveZone: 

NewPointer('tatle. Pixel-, Y_LrvZLS«W_LrVEL5«DV_LEVELS'9i2B0f (long)); /• 64k t» 
NevPointer I err, RGBEriOf*,Y_LEVZLS'UV_LEVELS*WV_LEVELS* SI leot (RGBError) ) ; 

{orli:0:i<4: i«») 

tor ty . -Y_LEVELS/2;y<y_LEVEl^/2 ;y. ) 
tor tu = -U'/_LE\T:LS/2 :u<UV_LrVTLS/2;uf. I 
I s r I V s - (A'.LEVELS / 2 ; v<OV_LEVELS/ 2 : v. ) ( 

RGBColor src. flat; 

long index, in: 

•.ndex»( (yl0xJF)<<8) 1 { (ut0xr)«4l I (v*OxF) ; 

r < 3276BL ♦ ( (y«9) • (ll36L'ul «2); 

g = 32768L ♦ ( (yc<9) - (7311,'u) - (352L*v) «2 ) ; 

b s 32768L ♦ ((y«9) ♦ (IBlSfv) «2); 

it (i>0) ( 

r-««rx ( index] . red; 
g-serr (indcxl .gre«a: 
b-«err (index] .bin*; 



src.red»r<0?0:r>6553«?65334:r; 

src.sreen.g<070:g>«!534?«!534:g; 

src.bluesb<0?0:b><:S34?6SS34:b; 

'".ebl»i ( ir-ies) . r?bf i) s '-jnaigned rhsr 'CrlrrJIn-S-?; '^srri ; 
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» Er.gi.-eerin?: KliCsCcde :CcnpPicc :C1jc . : 

lr.aex2Colcr ( ( 'lable) ( incexl .r5i( i) , ids: I ; 
err ( ir.dex 1 . retisdac . red- arc . red; 
err ( i.-.d«x 1 . sri«n.dst . green-sre . ?re«n; 
err( i-Sexl . Cl'jesdsc. Blue -src. Slue; 



t'/pedef struct ( 

snort pel (21 
) P1X16; 

:ypede£ struct { 

unsigned cnar 
1 ?ixB: 



OSErr Colours (Pix8 ••table) 

Isng y, u. v, r, g, I 
RGBError 'err; 
THx saveZcne; 



for li»0;i<4:i**l 
£or(ys-YS/2;y<«yS/:;y— ) 
f or (\i»-CVS/: ; u«yvs/2 .-u-*) 
(or(v=-UVS/2;v<UVS/2:v»»l 

RGBColor arc. dsc; 

long index; 



/• 128k table ' 



indexs (y<<10) I ( (u£0xlF)<<5) I (v&OxlF) : 

r = ;2'768L ♦ ( (y«101 ♦ (l«3SL*u) «1)J 

g « 3:T68L . i(y«10) •• (73XL'ul - CSSfvi 

b » 321681. ♦ I (y<<10l ♦ ll815L*vl 



r-<>trr|32''6B«'index] .red; 
C-sierr (327 68» index! .green; 
b-serz (327 ee-r index) .blue; 



src.red»r<0?0:r>6!S3'l?«!!34:r; 

arc.creen.g<0?0:9>65534?65S34jg; 

szc.b:uc>b<0?0:b>€S534?6SS34:b; 

(•table) f327«8-. index). pel = (unsigned cherlCclox21ud«x(ti 
Ind«x2Cclcr( ('table > (3276B.index) .pellij ,tdsc) ; 

erx(32768«iadexj.red«d3t. red-arc. red; 

err (32768- index) .green»d3t.gre«n-src. green; 

•rr (3276e-index] .blua«d*e.blue-crc.blue: 

) 

DjsposeI'tr( (Ptr)err); 
return inotrri ; 
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csCcce :CcnpP:r: : . c 



iwPojr.ter lerr . RGEEr: 

:r(l=0:i<2:i.-i 

:r ly--YS/2;y<rS/2;y..l 

;r Ivj-UVS/J.-vcUVS/J.v.*) ( 
RCBColor src. dst; 
lor.g index; 

ir.dex: (y<<10) I ( (uiOxlF)<c5l I (v&OxlF) : 

r « 3:''68L - I (y«lOl . (1436L«ul <<1J; 

g = 32-'68L • I (y«10) - (7UL«u) - (352L«v 

tj = 32T68L • l(y«IOI ♦ (1915L'vl <<ll; 



r-«err nzies^indexl . red: 
g-serr ISJ^eSvindcxj .green; 
b-«err (32768« index; . blue: 



src.ied=r<C?0:r>«5I34?65534:r: 

src.s:een>9<0?0:g>iSS34?65S34:9: 

src.blue>b<O?0:b>65S34?6SS34:b: 

dsc.zeds src.rediOxfSOO; 
dst.gre«n> src . greaniCxFSOO: 
d5C.blue> src.bluaiOxFSOO: 



(•table) [32766. index] .pel [i] • (d»t .red>>l) I (dsc . gre«n»6 ) I (dst.blue>: 

err r32"?68» index) .redsdsi .red-src.red.- 
err (32T68. indexj .green.dst .green- src. green; 
err (32"?6e« index) .blu«=dit .blue-«re.bUe: 



siie»Ccluc)->ccSize: 
fer(i»0;i<-sixe kk res«lt;i*-) ( 
ine r,fl.b; 

r«fclut)->ctT«bleii] .rgb.red; 
g-Cclut)->':frabaeli) . rgb. green; 
bs (•cluc)->cc'rable(i] .rgb. blue: 



results <rs«g t« gssbl: 
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ingir.eer i.-.3 : i'.licsC3c;e:CompP:c: ; Siti j . I 



Bics^.h: fasc bic rsad/wriee defini:ions 

but.use define scacic variables 

buflwinic initialise vara for write 

tnjf_rinit inicialise vars fcr read 

but.sec sec current bic 

buf.gec gee current bit 

buf_winc increment write buffer 

buf_rinc increment read buffer 

buf.size fullness of buffer in byces 

buf.flusJi flush buffer 

User defined macro/ function buf.over must bi defined in case of buffer overflo 

cypedef struct ( 

unsigned long 'toif; 
union ( 

unsigned long mask: 

long bno; 
) index; 

unsigned long 'per. data, size; 
) Buffer. 'But; 

*d«fin« buf_winit (but » \ 

but->index.masic<0x80000000: \ 
buf->ptr«4buf->buf (OJ; \ 
buf->data»0; 

"■define buf.rinit (buf ) \ 
buf->index.bno«0: \ 
buf ->ptrs4buf->bu£(0) ; 

Ibufi \ 

I buf -> index. nask; 

c<buf->index.bno) I 

Jefine buf.winclbuf I \ 

if (bu(->ind«x.maskssl) ( \ 
•buf ->ptrsbuf ->datar \ 
buf-xlaca«0; \ 

buf->ind«x.nask«0x80000000; \ 
buf->ptr«»; \ 
) else buf •>indax. mask »* 1: 

lefine buf_rinclbufl \ 

if (-- ibuf->iadax.bnol<Ol ( \ 
but->dacas*buf •>ptr**; \ 
buf->isdax.bBO«31; \ 

buf.site only valid after buf.flush •' 



Copied from 10340491 on 0'4/01/2005 



wo 94/23385 



PCT/GB94/0O<T7 



- 775 - 



Enginesrir.g: Kl:csCcde :Ccr7>pPict : Bits3 . h 

•deiir.e £)ur_six« (bui) \ 

iur.siTned Char * :buf->pcr- (-jnsijned char • )4bvt->buf (0) 
■defin« buJ.Ilushibuf ) \ 

it itui->;r;dex. mask! .0x80000000) ( \ 
fcut-»data Isbuf ->index.masK-l; \ 
•fcuf ->pcrsbut->dacd; \ 
tuJ->pcr»*; \ 
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.<::c3Ccde:C=np?icc : 2i :sJ 



63000 Bjc builei code (files;:. hi 



ipcr . idaca . tmask, &t 
ipcr. ibno. tbuf 

&daca. ibno 
fcpcr.&daca.tjnask 
&pcr. &daca. &xrtdex 
&pcr.&daca.UMSk 



&pcr . 4daca. fcjitask. fcbui 

•$80000000. (jnask 
&bu£. 4pcr 
tdaca 



maskslOO.. 

pcnbuf 

dacarfO 



but_rinit 
clr.b 



(per. ibno. (buf 



idaca. unask 
iinask. fcdata 



idaca.&bno 



ipcr.idaca.iinask 

ll.uaask 
Pcont 

(data, itpcr)> 
(daca 

• S??P9P0C?. %."naj»: 



; if non>zero concinue 
: •pcr»»sdaca 
daea>0 

wskT'.on. . 
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Engineer :r.g : 



r:r.g:i<licsCode iCor.pPi'-t : 3i:33 .a 



cnrpi.b 
bfle.s 
swap 
move . w 
add.b 



Ipcr. idata.scne 

econc 
idaca 

(tptr)*,iclaca 
>16,&bno 



&pcr.(daca.&inask 

'SSOOOOOOO.Unask 
Scont 

(data. ifcpcrl« 



mask-8000000? 

if tsuffer empcy continue 

•per*— data 



Copied from 10340491 on 04/01/2005 



wo 94/233*5 



PCT/GB94/00677 



■ 778 - 



En(;xneering:Kl :c:Ccde : CcrrpPirt : Sackvjrc.c 



iniied for speed: 
dirn - False 
src/dsc octave zz ( 



•defir.e BwdSO i addrO . dAC. dAH. dBHi 
VI* (short 'iaddxO; '\ 
dAC -v: \ 
dAHs v; \ 



.define Bwd2 i addr2 . dAC. dXH. dBC. dBHl 
v=- (Short 'laddrl; \ 
dBC. -v: \ 



dAG». V. ivs<<»l) ; 
•define Ewd3 iaddx3 . addr2 . addrl . dikC.dAH.dBC.dflH) 
v.- (Short •)addx3: \ 
d.^H». v; \ 
dAC. v; \ 

dBC vlvs«v<<ll : \ 

dEH-. V :vs<<=l) : \ 

•I short • )addr:« idAK.ll»J: \ 

•tshort •)addx2.idAC.ll>>2; 

.define EwdOiaddrO.dAG.dAH.dBG.dBK) \ 
v=«( short "laddrO; \ 
dAG= -v; \ 
dAH- v; \ 

dSH«> v*(vs>v<«l): \ 
dBG.» v.(vs««.l>; 

•define Bwdl(eddrl,ad<lrO,ad<lr3,dAO.dAH,d»G,dBH) ' 
v«. I short •) addrl; \ 
dBH*. v: \ 
dBG-.> v: \ 

dAC*« v.(v8.v«a)j \ 

dAH— v.(V8«-l); \ 

•(Short Maddr3.(dBH-ll»2; \ 

•(Short •)addrO»(d»G»Il>>2; 

■d«iir.« sv-i£:'3-ir:,iW.i\H.aH: ' 
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tr.? i neer 1 r.g : :<: 1 c :- C ode : Ccmp Pi r r : Ea c k v;a r d . c 
vs* I short 'laddrJ; \ 

dAH-s V.(V9SV<<1); \ 
iAC-. •/.(va<<»l) ; 

•define Ewdl3 i aiidrJ . addr2. addrl.dAC.cAH.dEH ) \ 
••• = • is.-.src •■dddrJ: \ 

dAH-. v; 
dAG-r v; \ 

dBH-i V. ( VS=V<<1) ; \ 
dBH-m V 1V9<<»1) ; \ 
•(Short ' )addrl»ldAH»l)>>2; \ 
• (Short • )addr2s((3AC«l)»>2; \ 
•(short • )*ddr3sdBH>>l; 

"define Bwd (base . end. inc) \ 
addrOabasc; \ 
addx3seddrO-(inc»2); \ 
3ddr2.addr3- (inc>>2); \ 
addrlsaddrJ- (inc»2); \ 
BwdSOfaddxO.dACdAH.dBH); \ 
addrl»xjnc; \ 

Bwdsi(addrl,addrO,dAO,dAH,dBH); \ 

addr2»iinc; \ 

while iaddz2<end) ( \ 

Bwd2(addx2,dAG,dAH,dBC,dSH): \ 

addr3*«inc: \ 

Bwd3(addrJ,addr2.addrl.dAC.dAH.dBC.dBH) ; \ 
addxO*«inc: \ 

BwdO(addrO.dAC.dAU.dBC.dBH); \ 
addxl*3inc; \ 

Bwdl(addxl,addrO,addx3.dAC.dAH.dBG.dBH) ; \ 
addz2*>ine; \ 

) \ 

BwdE3(addr2.dAC.dAH.dBH); \ 
addr3-»=inc; \ 

Bwd£3 (addr3,addr3.addrl.dAG,dAH.dBH) ; 

!!define Bw(is0r2 (addrO.dAC.dAN.dBHi \ 
v«'l snort •)addrO; \ 
dAG« 0; \ 
dAH« v; V 
dBHa v; \ 

•define ewdSlr2 (addrl.addrO.dXC.dAH.dBHI \ 
v=•(s^x^c 'jaddri; V 
dBH*« v>>2: \ 
dAG*. v; \ 
(JAH-. v«l: \ 
•(Shore • ) addxOsdBH; 

•define Bwd2r2 (addr2.dAC.dAM,dBC.dBH) \ 
vs«( short •)addr2; \ 
dBC- 0: \ 
dBH> v; \ 
dAH»« v; \ 
dAG*> v«l: 

*de t ina Bwd3r 3 ( addr3 . addr2 . addxl , dAC . dAH . dBC. dBH) V 
vs*( shore *)addr3; \ 
dAH*. 0> \ 
dAG*. v; \ 
dBG— vr \ 
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^ Engineering :KlicsCode:CcnipFic: :2dc;<ward.c 

>lSH-r V<<1; X 

• sr.cr: • : 4ddrl*dAH>>l. . 

• shcri vaddj:2.dAC>>l; 

•cleJ:r.e 5wa0r2 (addrO.cHC.ciAH.dBC.dBHi \ 
vs* ^snort ' :dddrO: ^ 
iAC. C. \ 
(lAHs •/• \ 
dBH-s v: \ 
dBG-. ^<<1, 

•detine Budlr2 i addrl . addrO. addr3 , dAG.dAH. dSC. dBHl \ 
v=« (Short • idddrl; \ 
dBH-. 0; \ 
dBG-« v; \ 
dAG«. v; \ 
dAH-E v<,l; \ 

•I Short • I addr3»dBH>>l; \ 
•I short •)addrOsdBC»l; 

Adeline BwdE2r2 laddr2,dAG.dAH,dBH| \ 
vs" (short •iaddr2; \ 
dBHe v: \ 
dAH»8 v: v 
dAC*> v<<L; 

• define Bwd£3r2 (addrJ . «delr2 . «d^l. dAC.dAH.dBH) \ 
v»' (short 'laddrJ; \- 
dAH*. 0: \ 
dAG-»» v; \ 
dBH-« v: \ 
dBH-. v«l: \ 
•I short •)addrl«dAH»l; \ 
'(Short * I addr2:dAC>>l; \ 
•(Shore 'laddrlBdSH: 

•deline Bwdr2 Ibase.end, Inc) \ 
addrOsbase: \ 
addz3saddrO'- (inc>>3) ; \ 
addr2:addr3- (inc»2) ; \ 
addrl=addr2-(inc>>2l : \ 
£wdS0r2(addr0.dAC.dAM,dfiH): \ 
addrl.=inc: \ 

ewdSl:2 (addrl.addrO.dAG.dAH.dBHi : \ 
4ddr2-sine; \ 
whi3eiaddT2<endl ( \ 

6wd2r2 laddr2.dAC.dAH.dBC.dBHI; \ 

addr3*=ine; V 

Bwd3r2(ad(lx3.addr2,addrl.dAC,dAK,dBC,dEH) : \ 
addrO->ainc: V 

BwdOr2 laddrO.dAG.dAH.dBC.dBH); \ 
addri'sinc; \ 

Bwdlx2laddrl,addrO,addr3.dAC.dAH.dSC.d8H>: S 
addr2*>inc: \ 

) \ 

BwdE2r2(«ddr3.dAG.dAi<,dBH); \ 
addr3*>inc: \ 

EwdE3r2 (addr3. addr2. addrl,dAC.dAN.dBH> : 

•define BwdS0r3 laddrO.dAC.dAH.dBH) \ 
vn- 1 share 'jaddrO; \ 
dAC> 0; \ 
dAH. 0; » 
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Engineering :KiicsCode:Ccir.pFic: ; Sackwdrd.c 



iSHs v»l: \ 

•define BwdSlrJ I aeWrl . addrO . d^C. dAH. dBH I \ 
short 'laddrl; V 
dSH-s v>>': \ 

d.«iG-« v; ■ 
dAH-i v; \ 

•ishor: • i addrOsdBH<<l ; 

ideiine BwdZr 3 (3(3(1x2.(1*0, dAH.d£C.dBH) \ 
v=Mshor; •)ad(ir2; \ 
dBC. 0: \ 
dBHs 0: \ 
dAH-s v; \ 
dAC v; 

•define Bwd}r3 I addr3 . a(^2 , addrl. dAC.dAH.dBC.dBH) \ 
v«» (shore -idddrJ; \ 
dAH*« 0; \ 
dAG*« 0; \ 
dSG»» v; \ 
dBH-s v; \ 

•(Short 'laddrlsdAH; \ 
•(Short •)addr2»dAC; 

•define BwdOr3 (addrO.dAG.dAH.dBG.dBH) \ 
v>* (short 'jaddrO; \ 
dACs 0: \ 
dAM> 0; \ 
OBH.. v; \ 
dBG«« v; 

(define Ewdlr2 (addrl.addrO.addrJ.dAC.dAH.dBC.dBH) \ 
vs'dhort *)addxl; \ 
dBH*. 0; \ 
dBC-'s 0; \ 
dAO»B v; \ 
dAH— v; \ 

•(Short 'jaddrSwdBH; \ 
* ( short ' ) addxO'dBC : 

•define Bwd£2x3(addz3.dAC.dAH.dBH) \ 
v= • ( short • ) addr 2 : \ 
dBH. v»X; \ 
dAH.. v; \ 
dAC*« v; 

•(define Bwd£3rJ (addr3 ,eddr2 ,addr J, dACdAH.dBH) \ 
v.* (short 'jaddrS; \ 
dAH*. 0: \ 
dAC. 0; \ 
dBH— v; \ 
dBH-« v; \ 

•(Short 'jadarl-dAH; \ 
•(Short 'jaddrS-dAOi \ 
•(Short 'jaddra-dBH**!! 

tdefine Bwdr3 (baa«,end. Iflc) \ 
addrO.baae; \ 

addr3naddrO-(inc»J)i \ 
addr2>addr3-(inc»3): \ 
addrl>addr2-(inc»2) : \ 
BwdS0r3 laddrO.dAC.dAH.dfiH) > v 
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Er.qineering:K:ac£C=de:CcmpFict : Bacxv.-ard. c 

addrl.-:ir.c; n 

3wdS:r3iaddrl.addr0.dAC.dAH.iBH! ; . 
addr2- = ir.c; \ 
■.•hileiafiir2<endl • > 

EwdirJ (addr2. dAG.dAH.dBC.dBH) ; ^ 

ac(;r3-«:nc: •. 

Ewc2r} :addrJ.addr2.addrl.clAC.dAH.dSG.clEH) : \ 
addrO-nnc; \ 

EwdOr:(addr0.d.\G.dAH.dBC.dSH): \ 
adorl-'inc: \ 

Bwd 1 1 3 I addr 1 . addrO . addr 3 . d-^G . dXK . dBC . dBH ) ; \ 
addr2»»inc; \ 

) \ 

Ewd£3r: laddrS.dAC.dAM.dBH! : \ 
addr3.sinc: \ 

EwdE3 r 3 ( addr 3 . addr 2 . addr 1 . dAC , dAH . dBH 1 ; 

extern void FASTBACXVJARD(char -data, long incl. long loopl, long inc2. char •end2) 
extern void HAARBACKWARDichar -data, long incl. long loopl. long inc2. long loopi) 
e;<tern void KAARTOPBWDCchar 'data, long height, long width); 
/• extern void HAARXT0P3WD(char "data, long ar«a);'/ 

void FasterBac)cvard(char -data, long incl, long endl, long inc2, char 'endJ) 

' register short v, v«, v3, dAG. dAK. dBC. dBH. inc.- 
register char 'addrO. -addrl. 'addrZ, 'AOtSxi. 'end; 
char 'baie; 

inc=incl; 

tor ibasc*data:base<end2:base*«inc2) ( 
end»base«endX; 
Bwd(ba*«. end, inc) ; 



long site_l, long siie_0): 



extern void TOPBWD(char 'data, char ' 

void TestTcpBackvardi short •data,int si»e(2),int cct_»rc) 

' int cct. area»size(0)*sire(l)«l: 
short width«saie(0)<«l; 

char •ccp»araa»(char 'jdat*. • latt»uadih* (char 'jdata. 

tor ioct«oct_src-l;oct>0;oct — ) ( 

"nc:s:«"i<<oct!l"ri;c4;rinc<«2; /• col and row increments in t 

rASTBACKWARD( (char *)data.rinc4,area-(rirc«l) ,cinc. latt 1 ; 
FASTBACKWARD( (Char 'jdata. cinc4. width- (cinc«ll . rinc, top) ; 

FasterBackward((char • )data. 8i»e(0)««3,area- (size {0)<«2 1 . 2 , lef 1 1 » 
FasterBec»cv«rd{ (char •)daca. 8, widtb-4. sise IOl«l. top) ; / 
TOPBWD( (char •)data. (char • )d«ta. aiiaCOl . size (1 J ) : 

void TcstBackward(daca,six«,occ_src) 

short 



int oct. area««ixel01*9iz«(U«l: 

short widthntizelO)«l; , 

char •tcp=area.(<:h«r ••data, t»wi«lrh. char 
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rngmeer ing : KlirsCcde : CcmpPicc : Sackward . c 

!cr(cc::oct_sr:-l:cct>»0:ccc--i { 

Icr.g circ52<<ccc. cinc4 :cinc<<2 . 

rinc = siie(0)<<oc:-l. tinc« = rinc<<2 ; /• col ar.c row incremcjits 

. left) ; 



B<sc)a.ard3 511 (daca. sue. oct_src) 



inc oct. areassiie (0] •si2»(l)«<i; 
short width=size(01<<l; 

char •cop.axea.(ch«r Ndata. •left»width*(char Mdata; 

£ or ( occ=oct _src- 1 ; oct >0 .-oct - - ) ( 

long cinc=2<<oct. cinc4rcinc<<2, 

rinc=9i»e(0J<<occ»l, rinc4srinc«2; /• col and row incr( 



BACK3511 ( (char • (data, rinc4. area- irinc«ll , cine. Xefcj : 
BACK3511I (char *)daca.cinc4,wadch-(ciDC«l) .rinc.ccp): 

BACK3SI1V( (Char ' l data, size [0)«3. area- < six* [0]«2) , 4, lafc) : 
BACX3S11H( (Char * )daca. 8 ,widch-4, size (0]«1 , ccpi : 
/• TOPBWD((char 'jdaca, (cbar • )dat«, size (1 J , sizefOJ ) ; •/ 
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Engi-eer:ng: : 



icsCcae:Ccnip?irt : Backward . a ■ 



tcer. cy: Adrian ;.ewi3 



S80X0 2511 



Backward code 



•klics- 

naaio.kCAC. &ciah.«ibh 

UaddrO.tdXH ; dAH='ishort ' 

idAH.idAG : dXCiv 

4<1AG ; iACs -dAC 

4dAM.(dfiH ; dBHsv 

IdBN.&dBH : dBH.v«i 



idddrl . iacKlrO. fcdAC. idAH. &dBH 



asr .w 

add.w 
add.w 

add.w 



(iaddrl) ,dO 

dO.dl 

tl.dl 

dl. idBN 

dO,4dAC 

dO,«dAH 

dO.dO 

dO.idAC 

dO.dO 

dO.idXH 

•l.tdBH 

&dSH. liaddrO) 



*(8horc *)addxl 
; vs«v 

VS3V»1 

dSH«« v>>l 

dAC*>v 

dAM-iV 

v«.l 

dAC..2v 



Bwdlven &addr2.idAC,tdAN.tdBC.idfiH 

mova.w ((addz2),d0 : v««ish 

move.w dO.idBM : dBKsv 

mova.w dO.tdSC : dBC*v 

n««.w 4dBC : dBC«-v 

add.w dO.&dAH ; dAH->>v 

add.w dO,&dAC : dAC«av 

add.w dO,dO ; 2v 

add.w dO.&dAH dU<*>v 

add.w dO.dO ; 2v 

add.w dO.&dAC ; dAM*«v 

en<tB 
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Encmeering: K:;csCode:CompPicc :3fickward.a 

SwdOdd i4d<ii3 . iaddrJ . iaddr : . idAC. 4dAH. tdflC. icBK 

movt.v i4acldr3).i0 ; v = 'ishorc -laddr^ 

ddd.v dO.idAH ; (1AN»>V 

add.w :]0.&dAC .- dAc-*v 

Jdd.w iCidBC ; <1BC«=V 

sub.w dO.idBH ; cBH-rv 

add.w dO.dO ; 2v 

add.w dO.&dBC : dBC*:v 

add.w dO.dO ; 4v 

suh.w dO.idBH ; dBH-s4v 

asr.w •Z.tOAH ; dAH»=2 

move.w tdAH, (iaddri) ; "(shore 'laddxlidAH 

asr.w *2.&dAC ; d\G»s2 

move.w tdAG, (taddr2) ; "(shore ')66iz7»<ikC 



&addr2 . idAG. &dAH. (d3H 

(iaddr2).d0 : vs* (shore *)addx2 



add.w dO.idAH 

add.w dO.fcdAC 

add.w dO.dO 

move.w dO.tdlH 

add.w dO.idAH 

add.w dO.dO 

add.w dO.&dAC 



move.w 
add.w 
add.w 



& addr 3 , & addr2 , fcaddrl . &dAC . UO/M . (dBH " 



(£addr3).dO 

dO.tdAH 

dO.tdAC 

•3.dO 

dO.fcdBH 

•2.fcdAH 

&dAH. (taddrl) 

!)2.IidAC 

&dAC, (taddrn 

tl.&dBH 

idBH. (laddrO) 



'(shore *)addr3 



: dfiH-<8v 
; dAJt»«2 
: '(Shore • 

r dAC»< 



•)addr2«dAC 



nove.l 

asr.l 

novea.l 

suba.l 

novee.l 

sub*. 3 

movea.l 



4bas«,tend.(inc 



*3.di 



*0.«) 
dO.aS 
a3,*2 
d0,a3 
«3.al 



; addrOabaaa 
t dOaine 
; dOalne»2 
r addr3>addr0 
, addr3->(inc»3) 
; addr2>addr3 
■ addr2-a(inc»2) 
addrl-«ddr2 
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Er.5ineer:r.5:KlacsCode:CcnpPic: : Backward. a 



suta . 1 
EwriScarcC 
idta . 1 
5wdStar:l 
adda . i 
swdEven 

SwdOdd 
adda . I . 

adda.l 
BwdOdd 
adda. 1 
rmpa. i 
Dgc.s 
BwdEnd2 
adda.l 
5wdEnd3 



dO.al 

i0.d4.d5.d"' 
iinc.al 

al.a0.d4.d5,d7 
4inc.a2 

ai.d4.d5.d6.d7 
iinc . a j 

aj. a:.al.d4.d5.i 
k ir.c . aO 
aC.d6.dT.d4.d5 



a3.d6.dT.d4.d5 



a2.d4.d5.d7 
a3.a2,al,d4,< 



adcrl-i I inc3.>J ) 

swdscart 0 1 dddrC . dAC . dAH . dBH ) 
addri-=inc 

swdScarc 1 ( addr : . addrO . dAC , dAH . dBH I 
addrjTinc 

Bwd£ven I addr2 . dAC . dAH . dfiC . dfiH i 
addr 3 ♦sine 

BwdOdd ( addr 3 . addr 2 . addr : , dAC . dAW . dBG 
addrOoine 

BwdEven t addrO , dBC . dBH . dAC . dAH i 
addrl«sine 

BwdOdd I addrl . addrO . addrJ . dfiC . d£H . dAC 

addr2*3lnc 

addr 2 < end 

whii* 

: Bwd£nd3iaddr2.dAC.dAH.dEH) 
addr3*«lnc 

Bwd£nd3 ( addr 3 . addr2 . addr 1 , dAC . dAX . dB 



Bac)c35i: Fum 

?S RTCORU 

daca 3S.L 

inci SS.L 

end! 33. L 

inc2 DS.L 

ar.d2 DS . L 

link 



9do move* . I 
adda . 1 
Bwd 
adda . 1 

cmpa. I 
bit.w 



PS.endl ii€).a4 
aS.a4.d3 
PS.inc2la6),aS 
PS.end2 (a6) .aS 



(a7)».d4-d7/a3-aS . 



incsincl 
basodaca 
•nd«baa« " 

Bwdlbas«,cnd. inci 

bas«->ainc2 

•nd2>baa« 

tor 



ENDFUNC 



BwdScartVO &addrO . &dAC. fcdAM. 

move.l (fcaddrO) .(dAM 

mova.l ktUM. IdXG 

neg . 1 kOkd 

move.i idAH.4dBH 

add.l (dBH. (dBH 



dAHa* (Shore 'laddrO 

dAC«v 

dAC« -dAC 



macro 

BwdScartVl 4addrl.4addrO.tdAC.4dAM.idBH 
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3ineering:K.::c3Code:Comp?ict : Sackwari.a 



:T\cve . i 
asi. 1 
add.l 
add. 1 
sut. I 
ddd.l 
add.l 
add.l 

SUA. 1 



lidddrJ i . do 
dO.dl 
»l,d: 
dl.idBH 
dO.&dAC 
dO . idAK 
dO.dO 
dO . &dAC 
dO.dO 
dO.ldAN 

«l,&dBK 
&d£H.(dBH 
•l.&dBH 
&dBH. liaddrO) 



2v 



; dBH*: : 
: dAH-=v 
I dAG. 



; d2H»>l 

I Shift word back 

: d5H»al 

; * ( Short • ) addrOsdBH 



move. 1 
move. i 

add.l 
add.l 
add.l 
add.l 
add.l 
add.l 



&ad(lr2 . &dAC. idAM. idBG, IdBH 

(i*ddr2).dO : ve'( short 
dO.tdfiH 
dO,&dBC 
fcdBC 
dO . (dAH 
dO.tdAC 
dO.dO 
dO.idAM 
dO.dO 
dO , idAC 



&addr 3 . &addr2 , &addzl . &dAG, (dAM. 4dBG._&dBH 



add.l 
add.l 
add.l 
sub.l 
add. I 
add. 1 
add.l 
sub. 1 

asr. 1 



dO.dO 

dO.ldBC 

dO.dO 



•2.{>dAH 
«2,4dAH 
«2,tdAH 
(dAM. Kaddrl) 

«2,(dAC 

fcdAC. I&addx3) 



• ( shore ' 

; dAM*«V 



: dBC«-v 
: 4v 

; d»M-»4v 



; dAH»a2 

: Shift word back 

; dAH»>2 

(Short 'jaddrl.dAH 
r dAC»m3 
; Shift word back 
; dAC»>3 
•(Short •)addr2sdAC 



I addr 2 , tdAC . (dAM . (dSN 
(iidar2>.40 : •••»•< shcrt 
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dO.idAH 

dO.idAC 

dO.dO 

dO.&dfiH 

dO.idAK 

dO.dO 

dC . &dAC 



&addz3 . &addr2 . &addii . fcdAC. &dAK. &dfiH 



(&addr3l .dO 

dO.&dAH 

dO . taxG 

t3.dO 

dO . &dBH 

•:.£dXM 

<>3.&dAH 

i2.&dAM 

&dAH. i&eddrl) 

*3.&dAC 

*2. fcdAC 

HJ.&dAC 

idAC. (iaddrSI 

•l.idfiH- 

<l.tdBM 

•l.fcdBH 

fcdBH.tdBM 

idBH. itaddrS) 



v=* (shore ' 
dAC.v 



shift word back 



lrl«dAH 



dAH>: 

•(Shore 
dAC»>2 
shift word back 
dAC»«2 

•(Short •iaddr2>dAC 
dBH»«l 

shift word b«ck 
dAH»>3 



BwdStareVl 
adda . 1 
BwdEvenv 
adda.l 

BwdOddV 

adda.l 

BwdEvenv 

add*.; 

BwdOddV 

adda.l 

cmpa.l 



fcbase.&end.tinc 

U>ac«.aO 

fcincdO 

*2,dO 

aO,a3 

d0.a3 

a3.a2 

d0.a2 

a2.al 

dO.al 

a0.d4.dS.d7 
iinc.al 

al,a0.d4.dS.d'? 
kine,*2 

a2.d4.dS.d6.d7 
fcinc,a3 

a3.*2.al.d4,d5.d6,d7 
&inc.aO 

a0.d6.d7.d4,dS 
(inc.al 

al.a0.a3.d6.d7.d4.d5 

iine.M2 

a3.««nd 



addrO«b«s« 

dOsinc 

dO»inc»2 

addrJsaddrO 

»ddx3-.(inc»2) 

addr3«addrl 

addr2-.(inc>>2» 

addrl>addr2 

addrl-«linc>>2) 

BwdScarcO ( addrO . dAC. dAH, dBH) 

addrl^'iBC 

EwdStart 1 ( addr 1 . addr 0 . dAC , dAH . dfiH ) 
addr3-«inc 

BwdEven I addr 2 . dAC . dAH . dBC . dBH ) 

s2dOdd'addr3 . addr 2 . addrl . dAC , dAM , dfiC 
addrO'iinc 

BwdJEven I addr 0 . dBC . dBH , dAO , dAH ) 
addrl*>inc 

BwdOdd ( addrl . addr 0 . addrJ . dBC, dBH , dAC 

addr2-»-inc 

addr2<end 

whila 

BwdEnd3 ( addr 2 . dAC . dAH . dBH ) 
aidrJ-«i" 
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d:.ai.ai.(34.d5.d7 ; EucEr.c; 3 i acdr J . adcr ; . addr 1 . dAC . dAH. < 



SacWSllV F-JNC 



inci 
enii 
incZ 



PXCCRE 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 



movea . 1 
moves. 1 
adda.l 
BwdV 



PS. incKafi) .d3 
PS.daca(a6) ,aS 
ai.»i 

PS.endl (a6) .a* 

aS.a4.d3 

PS. inc3(a£) .aS 

PS.end2(a6) .aS 

edo 

(a7).,d<-dT/a3-*5 



add.w 
add.w 
swap 

sub.l 



(A.dO 
&A.4C 



incsincl 

bacasdaca 

endabasa 

end*:endl 

BwdlbasK, end. inc) 

ba»«-««inc2 

cnd23basa 

tor 

raacore r«9i*c«ra 

remove locala 
lecurn 



IKlG-'dong •)addril 

A>mC. dO>lHlC 

AclHlS. dO-lKlC. CclHlC 

A-XHIC. dO«lH2C. CslHlC 

A>1K3C. dOslMC, CslHlG 

AslH3C. dOilHSC. CslHlC 

A>3GK1. dO'lHSC. C>1H1C 

abaaaa, do.iHSC. c^aHic 



(addrX, iad^. LA. iB. &C 



mova.l 


(iaddril).,» 


; IHlC-'dong •laddrR 






kB 


dO 


: CalHlG. 


dOalHlC 






add.i 


dO 


dO 


; 8«1N1G. 


dO«2H2C 






mov«.l 


dO 


dl 


',- B«1H1C, 


dO>2H2C. 


dla2H2C 




add.l 


(B 


dO 


: B.IHIC. 


dO>3K3j:, 


dl-2H2C 




add.l 


dO 


dl 


: BrlHlC. 


dOa3H3C. 


dlsSHSC 


d2alHlC 


.leve.l 


(B 


03 


; B.IHIG. 


dO<3K3Q. 


dl-9H3C. 


ncve.w 


dl 


d3 


; B>1H1G, 


dO>3H3C. 


dl>SHSC, 


d2>lHSC 




«B 


dl 


: BalKlC. 


dO«3H3C. 


dl-5HlC. 


d2slMSC 


move.w 


dO 


£8 


; B>1H3G, 


dO>3K3C. 


dl-SHlC. 


d2>lM9C 




dl 


dO 


; B>1K30, 


dO«3HlC. 


dl-SHlG. 


d2slM3C 


swap 
swap 


t% 




: B-3C1H. 


dO«3HlC. 


dl-SKlC. 


d2-lKSC 


dO 




; B>3C1H. 


dOslC3H. 


dlaSHlG. 


d2slNSG 
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d2,4B : B=3C1H-1K5C 

dl,4A ; A..5C:H 



tA. iC 
•2. lA 

iC. (iaddrW) . 



txive.* 
Isl.w 
neg.w 

add.w 



add.w 
swap 
add.l 
add.l 



move.w 
asr.l 
mova.l 



LaddrR. idddrW. &A. &B. &C 



(iaddrR)«,dO 

d0.d2 

<2.d2 



d2 
dO 

d0.d2 
dO.dl 
dO.dl 
dl.dO 
dO.dl 
dl 



fcC. (fcaddrx)* 
d3.4A 

4A. (laddrvii- 



dOslClH 
dJ.'lH 

dOmlClH. dlslClH 

dOslClH. dl:lC2H 

dO-lC3H. dl>lC2H 

dO«lC3H, dl=lCSH 

dO*lS3H. dlsSHIS 
A01G3H 

Al>»2 

C conplece 

A0»>2 

Mloao MaddrWsC 
A«0102 

•(long Maddrw-A 



BwdN 



ttoas«.&cr.d.fcinc 



movaa.l ibasa.aO 

movea.I aO.al 

BwdScartH aC.d3.dS 

BwdCycleH a0,al.d3.d4.d5 

BwdCyclaH aO. al .d« .d3 . dS 

cnvsa.l aO.&end 

b9C . a edo 

BwdEndH a0.al.d3,d4.dS 



addrR'basa 

addrW«addrR 

BwdStaxc I add;R. A. DD) 

BwdCycletaddrR. addrW. A.B.C) 

BwdCyc la I addrR. addrw. B . A. C ) 

addr2<end 

while 

BwdEnd I addrR. addrW, A, B . DO) 



BacWSllK FUMC 

PS RECORD 

data OS.L 

incl OS.L 

eodl OS.L 

inc2 OS.L 

end2 OS.L 
ZMDX 

link 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/CBW/OWr? 



-791 - 



Ensmeering: Klic£Code:ConpPic; : Sackwari 



.■neve . i 
move* . 1 
Tiovea. 1 
adda.: 

SwdH 



?S.inc2 Ia6) ,al 
FS.endJ ia6) , 
edo 



.,d4-d7/a3-a5 



; store regisce: 



end»sendl 

Bwdl base. end, inci 

base»=inc2 

end2>Dase 



rescore regisct 
rcmova locals 
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2» Czv/ziqAZ 1993 KLICS Limited 
a:: rignts reserved. 



Item utilising HVS properci 



Receded ej\d i 



lionalised (Stand alone \ 



• ir.cluce 
•include 
< include 
•include 
•include 



<rix*i«th.h> 
■Bit93 .h' 
•Klics.h* 
•KlicsHeader.h' 
•KlicsEncode.h* 



•include <M«ch.h> 

l» bool cr-je the negate value •/ 
•deUne negif (tsool , value) ( (booli ?-(value) : (value) ) 
•define al39(value) oegii ivalue<0. value) 

extern void HaerForwanH I ; 
extern void Daub4rorward( ) ; 

/• Use trie bit level file macro* iBiciS.It) 
bul.use; •/ 

/• Huffman encode a blocic •/ 
fdefine HuffEncUevdev.buf) \ 

Huf fEncodedevlO] ,buf ) ; \ 

Huf fEncodedevtl] .buf ) ; \ 

HuffEncode(l«v(21.buf); \ 

Hu f f Encode ( lev 1 3 ). bu t ) ; 

/• 'ixad length encode bloc)( e( integers •/ 
•define incEncLevdev, Ipf.bice.bui) \ 

IntincodedevtO] ,lpf_bics,buf ); v 

IntEncodedevtJl .Ipf.biss.buf); \ 

Int Encode (lev (2 1 . Ipf .bits, buO: \ 

IntEneode dev(3 J . Ipf .bits. bul ) : 

/• Define write a tero •/ 
•define TokenO V. 
buf_winc(buf); 

/• Define write a one •/ 
•define Tokenl \ 

buf_3ec(buf) ; but.winclbuf ) : 

/• Write blocic tor dace and update memory 

idefme OoXferdddr, pro. lev, dst, mode, cct.nmode.buf) \ 

HuffZncLevflev.buO; \ 

I>ucOata(adiir,pr&.dscl : \ 

mode ( oct ) .oct "0 ?M_STOP : nmode ; 

'• runcTi?n Nar.e: Cjsncise 
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• Cescripticn: H.261 style ^ar.tixer 

• Arjunents: new, old - ireage blecki 

pro, lev - returned values 
q - Quantiring divisor 

• Hecurns: lev is all zero, quantized data (pro) & level (lev) 



Scoiean Ouantiieimt new(4J, iat old TO, int prolyl, int iev(4). short q) 

xnt blJc, hal£_q=(l<<q)-l*>l; 

£cr(blKsO;blk<4;blk»*) ( 

mz datasnewCblkl-oldtblk], 
ma«_level>aha (data) >>q; 

'^9_levelsmag_level>13S?13S:mao.l«vel: 
lev [blk}«negif idata<0 , nag.level ) ; 

proiblk] :old[blk)->negi£ (data<0. (mag_level«q) ♦ (mag_ level i sO?tialf_q: 0) ) ; 
retumipro(0]:30 it pro(11*sO kk pro(31sa0 it pro[31»0); 

) 

void OuantizeLPF (int n«w(41.int pre|4],inc leyTi], short g) 

( 

int blk, hal£«q»(l«n)-l»l: 

£cr(blk.0.-blk<4;blk».t ( 
int data>n*w{blk], 

mag.levelsaba ( data I > >q: 



Function Nana: GueasOuanclsa 

Description; Estimate tbresbold quantiser value 
Arguments: new, old - inage blocka 
q - q weight ing factor 
Returns: estimated <i_consS 



ilsat CuesaOuontiza (im new(4],ini- old(4], float q) 

int blk; 

float gt_ma>sO.O: 

tor(blks0:hlk<4;blk**) ( 

int i, dat»abs(n«v(blk]-eld(blk]); 
float qt; 

tortitO.-datal-OM**) data»sl; 

it (i>0) i— ; 

qt«(( (3«i)-l>»l)/a> 

qt_niaxsqt_;nax>qt 7gt_;Baji : qt ; 

) 

ratum(qt_nax) : 



runctien Nam*: Intaicode 

Description: write a integer to bit file 

nr;u.-.en;s: lav - integer ts write new signed 
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bits - no St bics 



id Ir.t Encode ( int lev. in: sits.euf but) 



forii=bits-l.i>=0.i--i ( 

if ilevii:<<iii buf _set (buf ) ; 
buf.winc ibu£ i ; 



inc i, reao'dbs ( levi : 
Boolean signs lev<0; 

if (l<<bics-l *- mag) mags ( l<<bics - 1 1 - 1; 
It (Sign) buf_set ibuf ) ; 
fcuf.winc Ibuf) ; 

f or ( i»l<<biCf-2; i! =0; i>>«l) ( 
if (mag&i) buf.set (but ) : 
buf.winc (but ) ; 

)•/ 

Hardware compacablc version: sign mag I lsb->msb) */ 
inc i. mag sabs (lev) ; 

Boblsan sign»lBv<0; 

if (l<<bics-l <» mag) maga t l<<bics-l ) - 1; 
if (sign) buf.sec (buf ) ; 
buf.uinclbuf ) ; 

£or(ial;i;=l«toics-l;i«i!l) ( 
if (magfci) buf.set Ibuf ) ; 
buf.winclbuf ) ; 



Function Nan»: HuffEacodeSA 

Description: write a Huffman coded integer to bit file 
Arguments: lev - integer value 
Returns: no of bits us«d 



id Huff Encode lint lav. Buf buf! 

int level«absilevi : 

i! lleval>l) buf.set Ibuf i ; 
buf.winclbuf ! : 

ifllevel>2 II levelisl) buf.set (buf ) ; 
buf.winclbuf ) ; 
if lleval!>0) ( 

if ilevcO) buf.set Ibuf) ; 

buf.winclbuf I : 

if llev«l>2) ( 
ine i; 

for(i»3;i<lev«X;i»»l ( 
buf.winclbuf! ; 

) 

buf. sac Ibuf I : 
buf.winclbuf) ; 
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' New versicn •/ 

int. level »At8i lev) , i: 

it (level !=0) buf.set (but ) ; 
tuf_wir.c (tsul 1 : 
if ( level ;=0) ( 

if (lev<0) buf.sec (but) ; 
but_winc(buf ) : 
it (level<8) ( 

while (1< level") 

bui.wiac Ibuf ) ; 
buf_9«t Ibuf 1 : 
buf_wincibuf ) ; 
) else ( 

for(i.O;i<"J:i-«) 

buf.wiaclbuf) : 
level -s 8, • 

for(i"l<<6;i!»0;i»»l) 
if (levelti) buf.set 
buf.winc Ibuf) : 

) 

) 



Function Nam: XlicsEChannal 

Description: Encod* t channel of imagm 

Aigumnts: are - source channel ownozy 

dse - deitiaatioa vonoxy land eld for videos) 

octs. size - octaves of deeonpoaieion and iinage dimansions 

normala • MVS veighted nonaals 

lpf_bits - no of bits for LPP inteaer (image coding only) 

id KlicsEh« (short •arc, short 'dat.int octa.Uit sifetZl.inc threshlSl, int ce. 

int oct. ma«)c. x, y, sub, tnp. st«p.3«oets. bl)t[«). moderj), ns, no, base, 

int addrtai, new|4J, oldt41, pro|4J, levi4). iero(« ) -(0, 0, 0, 0) : 

Boolean nzflag, noflag. origin; 

int bi tn>a8k»-l<«»cle->9eQh.precision-lcle->fnn»i. quant iter (01-1. • 

Buf buf»t»cle->bu£; 

foriy«0:y<siie(l];y=st«p) 

tor lx=0:x<sii«[0);x.. step) 

iori9ub=0;sub<«;9ub*») ( 

mode |oet=oct9-Xl.baae_inode; 

if lsub>>0) modeloctaocts-H !■ M.LPP; 

iual(«2<<oct: 

do ( 

CetAddr ( addr,x.y, sub.oct, aize. naak) ; 
switch(inode(occ)> ( 
case M_VOZI>: 

GctOacaladdr.old.daOi 

if (BllcZero(old] ) (node ( oct NM_STOr; 

alae ( Oo£eroladdr,dst,aoda.3cc>: } 

brsAJc: 
caae M_SOtDIK_STILL: 

CetSata laddr , new, arc) ; 

nzsDecidelnew) ; nxf lag«n»<nthre8h(octs-oct J ; 

if mxflao II Ouantize(new.zero,pro,lev.kle->lr?nh. Quantizer toccs-oct)) 
le'.Dat e ( eddr , eld . dst » ; 
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i: (Sixzeroiold) ) ( 
TokenO; 

mode(occ)=M_STOP; 
: else ( 

Te<enl; Toicenl: 
Doier: ( addx . dsc. mode . occ ) ; 

Toicenl: TskenO: 

DoXter (addr.pro. lev. dst. mode. oct.K_SENDiH_STILL. but) ; 

case'^M.srjID: 

CecSAca I addr, new. src) ; 
CecDaca laddr, old.dsci ; 

nz:Dec:deinew) : nztlaasnz<»chre5hloccs-octl ; 
■.t (BlkZero(old) ) ( 

if iniflag II Ouantire (new. lero, pro. lev, k)e->frn\h. quantize 
TokenO; 

mode(oct]=M_STOP: 
) else ( 

Tokenl; TokenO: 

DoXfer (addr.pro. lev. dst. mode. oct.M_SZNDIH_STlLL.buJ) : 

) else ( 

inc oxsDecide (old) . 
Boolean motxona inz^oz) >>occ • 

no=DecideDelta(new.old) : nof la9»no-:»ccHparetocta-oct 1 ; 
origxn=nt<»no: 

if ((;nofl*9 II motion) 64 inxflag) ( /* was inoflag kh '.mtl 
if (Ou*fttize(new,oriffin7zero:old.pro, lev, kle->fnBb. quantizer (0 

Tokul; Tokenl; TokenO: 

Dozero.'addr.dsr.moda. occ) : 
1 else ( 

if (crioini ( 

Tekcnl; TokenO: 

Doxfer (addz.pro, lev.d8t.mod«.oct.«_SENDlH_STIU-.buf) ; 
) else ( 

Tokenl; Tokenl: Tokenl; 

DoXfer (addr.pro, lev. dst.inode.occ .M_£EMD. buf ! ; 

) 

) 

if {(motion ii orioini ik nzflafl) I /• wei origin kk nztla 
Tokenl; Tokenl; TokenO; 
CoZero I addr . dst . mode . oct I : 
) else ( 
TokenO : 

modeloet)»M_STOP; 

) 

) 

) 

break; 
case M_STItl.: 

GetOacaiaddz.new.srcl : 
nz«Cccidelnew) ; nzflagsn: 
if Insflag II Ouancise(ni 
TokanO : 

ooda(occ]aM_?rOP; 
) els« ( 

Tokwil : 

DcKf er lodix .pre , lev, -s: . -■x.de . :tt . :t_r::iL. tul ' 



Copied from 10340491 on 04/01/2005 



wo 94,73385 



PCT/CB94/0O6r7 



- 797 - 



Engineerinc : Kl i csCcce : CoirpPic; : Kl ;c3£nc . c 



break; 
case N_L?FI M_STI'_L: 

GetDaca ! addr. new. src'i ; 

OudJitizeLPF (new. pro, iev. Icle->trmh.cjuanci2er (0 ; i ; 
VerilyData ! lev(0| .bicmask, Cfrpi ; 
Veri fyCata f l«v[ 1 1 . bitmask, impl ; 
verifyoaca ! lev(2) . bicaask. imp) ; 
Verify Data ! ;ev[ Jl . oicmasn. tinp» ; 

:rtErcLev( lev. kle- >3eqti. precisicn-kle->£nTvh. ^uant iier [ 0 J .buf ) ; 
rucData (addr. pro, dsc) ; 
tr«de(OCt IsH.OUIT.- 
break.- 
casa M_LPPIM_SEND: 

CecDaca (addr.naw, arc! : 
CeCDaca (addr. old, dst I : 

nc=DecideD«lta (new.oldl : not laginocscoiniareCocts-oct ! ; 
if (no£la«) ( 

TokenO ; 
) else ( 

Tokenl ; 

Ouancixe (nev.old.pro. lev. Irle->tmh.guancizer (0] } ; . 
Hu£££ncLev(lev,buf ) ; 
PutOaca (addr, pro. dsc) : 



) 

swicch(moda [occ] ) ( 

case M.STOP: » 
SccpCouncers (rnoda.occ ,niaak,blk,x,y, eets) > 
break: 

cai« M_0U1T; 
break; 

detaulc: 

DownCouncersdnode.occ.mask.blk) ; 
break: 

) 

'hile (mode[octI ! »M_oaiT) ; 



id xlicsEnciW(short 'src. short •dsc. ins octa.int size(2].ine threshfS], ine c 

inc oct. mask. x. y, X. Y, «ub, tap. 

int addx(4), new(4), oldf4), proKJ, 

Boolean niflag, noflas. oriflin; 

inc bitinask>-l<<kle->«*qfa.preci8ion-kl«->fnnh.<Iuancizer [0]-l: 

Buf buf««kle->buf : 

for(Y.0;'y<8i»ell];y^-st«p) 
£or(X»0:X<si2e(0];X.«$t«pi 
for(y»Y;y«8i»e(l] « y<y»it€p;y- •step»l ) 
£or(x-X:x<8iietO] «* x«X*8t«p;x»«at«p»l ) 
for (sub>0:sub<4;8ub**) ( 
mode ( oct «occs - 1 J -ba ••jaod* ; 
if (9ub>-0) niod«(octaoccs-ll i« N_LPF: 
maskB2«oce; 
do ( 

CecXddr (addr, x,y. sub. occ. six*. mask) ; 
8wiech(iBod«(occ] ) ( 
case M.VOIDi 

CecData (addr. old. dit) ; 
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afr.cmeerir.g : Kl icsCode : CompPic; : XI ; rsEnr . c 

i! (Bixzeroold) I modeiocrliM.STCP: 
else ( DcZeroiadcir.dsi.mcde.occ; ; ) 
break; 
:ase m.SENDIM. STILL: 

Gee Sac a laadr. new. srci : 

niiCecideir.ew) ; nz J lagin2<rEr.resh {oc:s -oct I : 

:£ ir.zilag n Ouaut ize i new. lero, pro. iev , kle- > trrvh. quajinzer t: 

CetDaca (addr.oXd.dsc) ; 

i£ (Blkzeroioidi I ( 
TokenO; 

mcdefoct)..1_ST0P; 
) else ( 

Tokenl; Tokenl; 
DoZero(addr.dsc.mode,ocCi : 

) 

1 else ( 

Tokenl; TokenO; 

DoXteriaddr.pro. lev. ds;, mode, o=: . M_SE>IDIM_£T:LL. bui 1 ; 

) 

break: 
case M_SEND: 

GecOata laddr.new. sre) : 
CecDacaiaddr.oId.dsci : 

nziOecide inewi : nzllaosntochreshloces-oct) : 
it (Bl)cZero(oldn I 

it inzfUg It Ouantizelnev, zero, pro, lev, kle->irmh.qu»neix 
TokenO ; 

mode(OCCj»«_ST0P: 
) else ( 

Toktni; TekenO; 

Doxier ( addr . pro . lev, dst . mode . occ . M_SEND I M_STILL, fcuf ) ; 



) 

} else ( 



5=D«eidet)elca(new, old) ; 

/• Bwcion dsceccion ' 



no»Deci<jeDelta inev.old); nof lag»no<t.cowpare(ecci-oct) ; 
ori5in=nz<«no,• 
if (<!nofias II iKotion) 4t inifla*) ( /• wae !no£l«9 *i inztl 
it (Ouan.:ize(n«w.ori«in?i«ro:old.pro, lev, kl«->£rmh. quantizer lo 
Tokenl; Token!; TokenO; 
OoZero (addz , dae , node, occ > ; 
) else ( 

if (origin) < 

Takenl; TokenO; 

DcXfer'.addr,pro. lev, dst. mode. oc?. M_SENDIM_STILL. bu£l ; 
) else < 

Tokenl; Tokenl; Tokenl; 

DoXfer (addr, pro, lev, dec, node. oct.M_SQ»D, but) ; 

) 

) 

if ((motion II origin) It nzflag) I /* wee origzn bt nxfle 
Ta)(«nl: Tokenl: TokenO; 
DoZere ( addz . dst , mode , occ ) ; 
) else ( 
To)(enO: 

iiodeIoct)"H_STOP; 

) 
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* Ergineerir.g : KiicsCode : CcmpPict : XI iCsEr.c . c 
Ge:ri«t«(<ddr.new, srcj : 

ni-Decids iMw) ; nzf lag»n2< -c'-resh ( oct s -oct ! : 
If (nzflao II Ouanciieinew. zero. pxc. lev. iile->£rwh.5uantiter|oc 
ToKenO; 

nodetocc) »M.STOP; 
) eXs« 

Tcxenl: 

DoXfer (addx.pro. lev,dac,mode,oct,M_STILL.bu£) ; 

) 

brealc: 
case n.LPriM.STILL: 

G«tDaca ( addx, new, src) ; 

Ou*nti2«I.PF(new,pic.i«v,kl«->fni\h.qu«ntii«r(01 ) ; 
veriiyD«c« ( lev(01 . biunaak. uip) .* 
veri£yO«ca(lev[l] .bicmaak.uip) : 
verifyD«t«(Xev(21 .bitnask.tnp) i 
verifyDaca(lev(3J .bitmask.tJii)) ; 

IntEncU«v(lev,kie->9eqh.piecision-kle->irTnh.quanci2erC0) ,bu£) ; 
PutDaca I addr , oro. iuz ) ; 
n>od*(oct)«H_0OIT; 
br*ak; 
case M.LPriM.SEND: 

GecOaca(addr. Mw.src) : 
GetO«ca(addr, old.dat) : 

no=D«cideD«lca(new,old) ; no«la9»T>o<»con«>ar«{oct«-occ J ; 
il inoflag) ( 
TokaaO: 

) ( 

Ouaneixe<new,old.pro,iev,ka«->tniih.quancixer(01 1 : 
Hu< f ZncLav ( lav , buX ) ; 
PutDatataddr.pro.dst) : 



swicch(mode(occ]) i 
case H_STOP: 

StopCount«r»<iaoda,oct.ma«k.blk,x.y,octs)! 

bzeak: 
case H_OUrr: 

break; 
detault: 

Downcounters ( node. occ. mask. blk) : 
bxaak; 

) 

*i le I ncde ( oct 1 : =M_0OIT ) : 



/• index to ouant and vice veraa •/ 
•define i2a(il ( float ) i'HISTO.DELTA/ t float IHISTO 
IdSiiM Q3ilq) rix3Lon9(X2rixTqMfloat)HlSTO/HlSTO.DELTAn 

/* ruiiction Mmm 

• Description: _ 

• Aiffunentsi «rc - source channel memory j , 

dat - destination memory (and eld for videos) 

oets. sisa - octaves of decon«joa»tion and image dimenaions 

noma - baae HVS weighted noxnals 

• Returns: calculatea new quant 
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— E.-igir.eerir.g: KlicsCode:CoxpP:c;:Ki.c3Ep.c .c 

LooltAr.eadi shore 'src, short 'isciiiec r.crms ( 5 ! ! . Kl icsE )cle) 
i-t X y. sub. index, siz« 1 2 1 = ( !<le->seqh. sequence.! ire tC ) . kle->Beqh. s*<Tv;er 

chreshtHISTO) . quact [HISTOJ . cargec; 
mt new(41. oid|41. addr(4;. lero ( 4 ) r ( 0 . 0 . 0 . 0 I : 

tloac 7Jant ; 

for : index»0; index<HlSTO: index.. ) f 
chrathUndax] sO; 
quact I index) «0; 

£or(y.O!y<siie(ll ;y.-2««occs) 
£or(xsO;x<iixe(0):x*=2«occs) 
torisubsi; su£)<4;sub**) ( 

float ci_tftre9h; 

int nz. no. ox, blk; 

Boolean oz£lao. origin, reocicn: 

GetAddr (addr.x.y, sub,octa-l.aixe. l<<occsl : 

Ca t Dac * ( addr . mw . src ) ; 

GetDaca iaddr,oid.dac) : 

nxsDecideinew! ; 

oxsDecide(old) ; 

no«D«eideO«lta<n«w,eld) ; 

czf lagsi(le->encd.incza ii Blk2ero(old) : 

originsnz<=noj 

motion. (n**oxl»ccti <• no; 

q_thresha<floac)nx/D«cideDouble(noms(l] [x] ) ; 
if <oxflag II origin) { 

float qcsCucatOuantiziincw.zaro.normail] [0] ) : 

q_thr«»h»q_chxe9h<Qt ?Q_thr«sh : qt ; 

* float qt»Cue9sOuantii«<n«w,old.norm8lll 10) I : 

Q:.thresh«q_chre8b<qt7Q_thre3h:qt: 
if (imoeion) ( 

qt»<flcat)no/D«cideDo\UsltinonM!l) t2|) ; 

q_chresh»Q_thiesh<qt ?^thresh:qt; 



rnresh( index) •■«; 

cr ( indexsHISTO-1 : index>«0; index— 1 

quact ( index ) » thr e sh 1 index ) • index* ( indea i 



■ HISTO' 



1 ?0: quact (indextll ) ,- 



/• buffer must be greater than bfp_in after thia frame •/ 

!*ia"i^>dex«HJSTO t4 quact|iadex)/index>target) index*.; 
quant ■i2q( index); 

)ae->encd.prevcJ*ct=Q'ia« i Index) / (index.«0?l: index) ; 
F-inctior. Name: BaseNonnal* 
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Er.gineering: KlicsCode: CcmpPi.-c : KlicsEnc . z 



D«script;on: Caicuiaces base HVS ueichced i 
Ai;ujr.«ncs: noma - siorage £or nonnals 
Ret\:rns: weion'.ed nontais 



c.Norrjls(f Icac ncrTis ( 5] [3 1 , KlicsE Hie) 



♦or ioct=0;oci<5;oct*-) 

for (r.ormiO ; nonn<3 ; norm**) 

norms [occ ) (norm) »b«se_norm(norm] •kle->encd. base [occ 1 * ( fioat ) i l<<kl 

/• runcticn Name: Ncmals 

• Description: Calcul*t«» HVS weighted normals 9 quane 

• Axgumencs: norma - storagt for normals 

• Returns: weighted normals and LPF bits 

void Nonnal3(floac base_nona3(5] (3) . int thresh!!) . int conpare(5] .KlicsE )cl9) 
int oct. i. nora: 

£or(octaO;oct<»kle->9«qh.octav«sfO);oct**» ( 

nentmFix2Lcnff (X2Fixlbase_norm9 (oct) (0)*kle->«ncd.tBp_Quanc) ) ; 
nonn»norm< 171: nera: 
£or(i»0;0!»(ncrw6-3) ;!♦♦) 

nor»«ficnn»l: 
switch (notio) { 
case 1: 

kle-> frmh. quantizer [occ] ai: 
break; 
case 2: 

kla->f znh. Quantizer (oct) ai*l; 

break; 
case 3: 
case 4: 

kl«-> frmh. quantizer (oct) 31*2 : 

thre9hloct)=rix2U>nB(X2ri«(DecideDoufcle(ba9e_normsIoctl (1) •kle->encd. tnp_q 
coitpareIoct)=Fix2LonQ(X2Fi3«(D8cidBDcutle (ba«e_norm»(oct) (2J•kle->encd.talp_• 
ile->tmh.qu*ncizer tO) -kle->t rwh.quantiier (0) «3?3 : kle->£rmh.quantiier (0) : 
,'• minjjaum 4 bits of quant for Ipf due to dynanic range problem* •/ 

Boolean KlicsFlagsJKlicsE kle) 

Boolean skip-false; 

kle->encd.buf fer'«kle->ened.bpf_in; 

kle->fmb.flaoaBO; 

if (kle->«ncd.buf fercO) 

kle->«ncd.buff eraO; 
If (kle->ened. intra) 

kle->tmb.fU9S la KnuomU; 
'^**if (skip.kle-»encd.buf_8V &t kle->encd.buf f er>-kle->encd.buf.site) 

kle->frinh. flags la lcrH_SXIP; 
return ( skip ) ; 
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_^ En5ineerir.g:K:icsCode:CompPic: :KUcjEnc. r 



"•jnct;:n Name; KlicsEncoCe 

Descr;p:isn: Enccde a frame ficm yuv :de; :rans!ormed imaqe 

A:i5mr.e:its: src - scuree iwgets) 

is* • :rajisfcrmes cestir.aiicn memory (and old ior videos) 



0-5 :<licsEnecdei short 'srcUl, shore •d3t[3). KlicsE kle) 

float ba9e.ncr7ns[5)(3); 
int cr.annel. chr«$h(5). compare (5 J.- 
Bui bu£si<le->C)u« .• 
C>uf _winii (but ) 
it (KUcsFlags (icle) ) 

kle->£rmh. lenocftsO; 
else { 

ton chaiuje 1 » 0 ; channe l<kle->aeQh. channel s ; channe l-« ) ( 

int Si2e{2)»()cl«->s«qh.se(juence_sire[0)»(ch8nnel»=070:kle->seqh.s 
kle->seah.sequence_size [!)>>( channel. •O?0:kle->seqh. sa 
areaisiie(O) 'siiedl , oces=lcle->seqh. octaves (channel»«0?0: 

switch(lcle->seqh. wavelet) ( 
case WT_Iiaar: 

HaarForvard(sre(chann«l) .site.octs) : 

break: 
case vrr_Daub4 ; 

Da ub4 Forward I src I channel ], s i ze. occs ) : 

break; 



BaseNormala (baae.noms, klei : 

if (kle->encd.auco_q H ! kla->encd. intra) 
LookAhead I src [ 0 ) . dst ( 0 J . basa_nonui . kle ) ; 

else 

kle- >encd . tnp_Quar.t ■ kl e- >«ncd . guanc ; 
Norma is ( b«se_nonia , thresh, ccnpara, kle) ; 
for (channel ■0;channel<kle-.»seqh. channels. -channel*-) ( 

int siie(2]»(kl<»->seqh.se^ence_si»e(01 >>( channel »»0 70 ; kle- >9egh. s 

kle->se(;h. laquence.sixe ( 1] >> ( channe 1<>0 70 : kle- >scqh. sub.sai 
octS3kle->seQh.octaveslchannclaaO?0:l] : 

if (kle->encd. inert) 

KLZEXO ( dac [channel 1, size (0]* size CI] ); 
if ( channel ««0> Klics£rcy( src I channel I ,dse (channel ) , oct s. size. threah. c 
else KlicsEncUV( src (channel] . dsc (channel] ,nccs, size, threah, compare, kle 

) 

b5:f_£lu3h(buf j.- 
kle-}! iinh.lan9thabijf_size(bu.*l ; 
kle •>encd. buff er>skle->frTnh. lanyth: 
if (!kle->encd. intra) 

kle->encd.prevbycea3kle->fnnb.lesQCh: 

) 

retumlkla->£r]iii.lan9eh) : 
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Engineering; KIicsCcde:CcmpPicc : KlicsHeader . h 



•itten by; Adri. 



Sequence and franie headers for Klica-Encoded tiles 
Hign Dyte first 



iyp*d*t struct ( 
unsigned short 
unsigned char 

I KlicsHeader: 

cypedef struct ( 



KlicsHeader head; 


/• Fixed 


unsigned short 


sequence_si2er3 J.- 


/• Source 


unsigned char 


channels.- 


/• Source 


unsigned chax 


sub.sainplefS} ; 


/• Source 


unsigned char 


wavelet; 


/• Source 


unsigned char 


precision; 


/• Source 


unsigned char 


octaves [2 ) : 


/• Source 


unsigned char 


reservedO J ; 


/• Fixed 


KlicsSeqHeader: 







typedet struct ( 

KlicsHeader head 
unsigned long length; 
unsigned long 
unsigned char 
unsigned char 
unsigned short 

) KlicsFranteHeaden 



{raate_nunber; 
flags; 

Quantiier(S) ; 
reserved; 



• Fixed 

• Calc 

• Calc 

• Calc 
' Calc 

• Fixed 



- Sixa and version of thia str 

- Uiminance di^nensions and num 

- Kunber-of channels: 3 - YUV, 

- UV sub-saopling in X and Y d 

■ Wavelet used: 0 - Haar. 1 - 

■ Bit precision for cransfom 

■ Number of octaves y/UV inaxit 
Reserved for future use */ 



■ Siie and version of this acr 

■ Ltuigth of frame data (b/ces) 

■ Frame number intended for s* 

■ Bitfield flags: 0 - frame sk 

■ Quantiser shift values {octav 

■ Reserved for future use •/ 



0x1 



loplementation notes : 

OuickTijr« Hust have KlicsFramcKeader. length set to a valid number 
Sun Must have KlicsSeqHeader in data stream 

Possible develcpnents: 

KlicsFranwHeader .quantiier 

Currently contains shift rather than stsp-si*e 

Different values for OV and CH.MC.CC sub-b*nd» are not currently suppo 
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»£ncineering: Kl • csCcde: Klirs Codec: Xi ics Encode . i 
:<licsL-.cod« resource file 



• include •Tj-pei.r' 

• include • MPWT-/pes . r • 
•include • ImaoeCodec.r' 

• Klics Compressor included into Che applications resource file here 



This structure defines the capabilities of the codec. Thare will 

prcDably b« a tool for creating this resource, which measures the performance 

and cap&bilicies of your codec. 

cs Codeclnfo*. locked) ( 

/• nam* of the codec TYPE i da 
1. /• version •/ 

'kliC. /* who made this codec */ 

0, 

codeclnfcI«es32 IcodeclBf cDo«s8 icodecInfcDoesTeirporal. /• depth and etc suppo 

codeclnfcOepth34 Icodecinf oSe^anceSensitive, /• wtiich data zormats do w« ui» 

100. /* conprets accuracy (0-2SS) ( 

100. /* dficonpress accuracy I0>3S5) 

0, /• Biillisecs to congress 320x3 

0, /• Billiseea to deconpress 320. 

0. /' conpre^sion level (0-255) ( 



source 'thng" I12B. 'Xlica Compressor' . locked) i 
c ompr e s s o r C on^onen t Typ« , 
klicsCodecformacType. 

• Iciic ' . 

codeclnfot)o«s32 IccxlecZnf oOoese Icodccinf oDoesTenporal . 
0. 
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=- Ensineeri.ng:K.liCsC3de:Klics Coctec: Kiicstnccde . r 

resource • 3TS • (129) ( 

■yaveiec transform & mult iresoluc icn cree tased coding scheme* 
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tngir.eering: KlicsCcce : Kl ics Codec : Kl icsCeccde . : 
csDeccde resource :;Ie 



-ir.cl-JcJe T/pes.r- 
•inci'jce "MPVTypes . r • 
• include -l.T^geCcdecr' 



included into the applicatii 



resource tile 



This structure defines the capabilities of the codec. There will 

probably be a cool for creating thij resource, which measures the perfoxTiance 

and capabilities of your codec. 



codec Inf oOepth2 4 I codecZnf cSeguenceSens i t i ve , 



/• naae of the codec TYPE ( da 
/• version •/ 
/• revision 'i 
I- who nade this codec •/ 
8 icodecInfoDoesTeoporsl icodaclnfo 

/• which data formaca do we un- 
/• co«n>re»» accuracy (0-255) ( 
/• deconpress accuracy (0-2551 
/• iBiilisecs to compress 320x2 
/* millisees to deconpress 320 
/• eonprersioB level (0-2S5I ( 



source 'thng' (130, 'Xlics Decompressor* . locked) { 
deccmpressorConpcnentlype. 
jclicsCodecformatType. 

•)tlic', , . , ^ 

codeclnfcDoe»32 icodeclnfcDoesieicodecInfoDoesB icodeclnfoDoesTeniporal Icodecinto 
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CLAIMS 

WE CUflM: 

1. A method of transforming a sequence of input 
digital data values into a first sequence of transformed 
5 digital data values and of inverse transforming a second 
sequence of transformed digital data values into a sequence 
of output digital data values, said sequence of input 
digital data values comprising a boundary subsequence and a 
non-boundary subsequence, comprising the steps of; 

10 running a number of said input digital data 

values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
digital filter and through a high pass boundary 
forward transform perfect reconstruction digital 

15 filter to produce a first subsequence of said first 

sequence of transformed digital data values, said 
first subsequence of said first sequence of 
transformed digital data values comprising interleaved 
low and high frequency transformed digital data 

20 values; 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
pass non-boundary forward transform perfect 
reconstruction digital filter and also through a high 

25 pass non-boundary forward transform perfect 

reconstruction digital filter to produce a second 
subsequence of said first sequence of transformed 
digital data values, said second subsequence of said 
first sequence of transformed digital data values 

30 comprising interleaved low and high frequency 

transformed digital data values, said low pass 
boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
than said low pass non-boundary forward transform 

35 perfect reconstruction digital filter, said high pass 

boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
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than said high pass non-boundary forward transfonn 
perfect reconstruction digital filter; 

converting said first sequence of transformed 
digital data values into said second sequence of 
5 transformed digital data values, said second sequence 

of transformed digital data values comprising a first 
subsequence of said second sequence of transformed 
digital data values and a second subsequence of said 
second sequence of transformed digital data values; 

10 running a number of said first subsequence of 

said second sequence of transformed digital data 
values through an interleaved boundary inverse 
transform perfect reconstruction digital filter to 
produce at least one output digital data value; 

15 running a number of said second subsequence of 

said second sequence of transformed digital data 
values through a first interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter to produce output digital data values; and 

20 running a number of said second subsequence of 

transformed digital data values through a second 
interleaved non-boundary inverse transform perfect 
reconstruction digital filter to produce output 
digital data values, said output digital data values 

25 produced by said interleaved boundary inverse 

transform perfect reconstruction digital filter, said 
first interleaved non-boundary inverse transfonn 
perfect reconstruction digital filter, and said second 
interleaved non-boundary inverse transform perfect 

30 reconstruction digital filter comprising a subsequence 

of said output digital data values of said sequence of 
output digital data values. 

2. The method of Claim I, wherein said low pass 
boundary forward transform perfect reconstruction digital 
35 filter has X coefficients and wherein said low pass non- 
boundary forward transform perfect reconstruction digital 



Copied from 10340491 on 04/01/2005 



wo 94/23385 



PCT/GB94/00677 



- 809 - 

filter has Y coefficients, Y being greater than X, said X 
coefficients of said low pass boundary forward transform 
perfect reconstruction digital filter being chosen so that 
said low pass boundary forward transform perfect 
reconstruction digital filter outputs a transformed digital 
data value Hq when the low pass boundary forward perfect 
transform reconstruction digital filter operates on input 
digital data values IDo-ID^-i adjacent said boundary, said 
transformed digital data value Hq being substantially equal 
to what the output of the low pass non-boundary forward 
transform perfect reconstruction digital filter would be 
were the low pass non-boundary forward perfect 
reconstruction digital filter to operate on IDg-IDx-i 
well as y-X additional input digital data values outside 
said boundary, said additional input digital data values 
having preselected values. 

3. The method of Claim 2, wherein Y-X-l, wherein 
there is one additional input digital data value ID.j, and 
wherein ID_i is preselected to be substantially equal to 

4. The method of Claim 2, wherein y-X=l, wherein 
there is one additional input digital data value ID.^, and 
wherein ID.j is preselected to be substantially equal to 
zero. 

5. The method of Claim 1, wherein said sequence of 
input digital data values is a sequence of digital data 
values associated with pixels of either a row or a column 
of a two dimensional image, said boundary of said sequence 
of input digital data values corresponding with either a 
start or an end of said row or said column. 

6. The method of Claim 1, wherein said sequence of 
input digital data values is a sequence of digital data 
values associated with an audio signal. 
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7. The method of Claim 1, wherein said low and high 
pass non-bcfDndary forward transform perfect reconstruction 
digital filters are forward transform quasi-perfect 
reconstruction filters which have coefficients which 

5 approximate the coefficients of true forward transform 
perfect reconstruction filters. 

8. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
digital filters are both four coefficient quasi-Daubechies 

10 filters the coefficients of which approximate the 

coefficients of true four coefficient Daubechies filters. 

9. The method of Claim 8, wherein one of said four 
coefficient quasi-Daubechies filters has the coefficients 
11/32, 19/32, 5/32 and 3/32 independent of sign. 

15 10. The method of Claim l, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient quasi-Daubechies filter H of 
the form: 

"n = alDjn.i + bIDjn + cIDjn^i - dID2n^2 

20 n being a positive integer, IDq-ID„ being input digital data 
values, m being a positive integer, IDq being the first 
input digital data value in said sequence of input digital 
data values, and wherein said low pass boundary forward 
transfoinn perfect reconstruction digital filter is a three 

25 coefficient digital filter of the form: 

Hq = aID_i + bIDo + clDj - dIDj 

ID_2 being a predetermined input digital data value outside 
said boundary and having a preselected value. 

11. The method of Claim 10, wherein said high pass 
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non-boundary forward transform perfect reconstruction 
digital fiiter is a four coefficient quasi-Daubechies 
filter of the form: 

5 n being a positive integer, and wherein said high pass 
boundary forward transform perfect reconstruction digital 
filter is a three coefficient digital filter of the form: 

Gq = dlD.j + cIDq - bIDj + aID2 

dID_i having a preselected value. 

10 12. The method of Claim 11, wherein: a+b+c-dis 

substantially equal to 1, wherein a - b + c + d is 
substantially equal to 0, and wherein ac - bd is 
substantially equal to zero. 

13. The method of Claim 12, wherein: a=ll/32, 
15 b=19/32, c=5/32 and d=3/32. 

14. The method of Claim 11, wherein said interleaved 
boundary inverse transform perfect reconstruction digital 
filter is a two coefficient digital filter of the form: 

ODo = 4(b-a)Ho + 4(C-d)Go 

20 wherein ODq is an output digital data value of 

said sequence of output digital data values, wherein Gq is 
the output of said high pass boundary forward transform 
perfect reconstruction digital filter when the high pass 
boundary forward transform perfect reconstruction digital 

25 filter operates on input digital data values IDq, ID^ and 
ID2 adjacent said boundary, and wherein Hq is the output of 
said low pass boundary forward transform perfect 
reconstruction digital filter when the low pass boundary 
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forward transform perfect reconstruction digital filter 
operates ofT input digital data values IDq, ID^ and ID2 
adjacent said boundary. 

15. The method of Claim 14, wherein one of said first 
5 and second interleaved non-boundary inverse transform 
perfect reconstruction digital filters is of the form: 

D2n4l = 2(cH„ - bGn + aH„^i + dG„^i) 

n being a non-negative integer, and wherein the other of 
said first and second interleaved non-boundary inverse 
10 perfect reconstruction digital filters is of the form: 

D2n*2 = 2(-dHn + aG„ + bH„^i + cG„^i) 

n being a non-negative integer, wherein H^, G^, Hn+j and G„^i 
comprise a subsequence of said second sequence of 
transfomed digital data values. 

15 16. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient guasi-DaubechieS' filter having 
the coefficients: 11/32, 19/32, 5/32 and -3/32, and wherein 
said high pass non-boundary forward transform perfect 

20 reconstruction digital filter is a four coefficient quasi- 
Daubechies filter having the coefficients: 3/32, 5/32, - 
19/32 and 11/32. 

17. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
25 digital filters are chosen from the group consisting of: 
true six coefficient Daubechies filters and quasi- 
Daubechies filters, the coefficients of the quasi- 
Daubechies filters approximating the coefficients of true 
six coefficient Daubechies filters. 



Copied from 10340491 on 04/01/2005 
ciinq-nTiiTT CHFFT mill F ?R1 



wo 94/23385 



PCT/GB94/00677 



- 813 - 

18. The method of Claim 1, further comprising the 
steps of : 

encoding said first sequence of transformed 
digital data values into an encoded sequence; and 
5 decoding said encoded sequence of digital data 

values into said second sequence of transformed 
digital data values and supplying said second sequence 
of transforried digital data values to said interleaved 
boundary inverse transform perfect reconstruction 
10 digital filter, said first interleaved non-boundary 

inverse transform perfect reconstruction digital 
filter, and said second interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter. 

15 13. The method of Claim 18, further comprising the 

step of : 

quantizing each of said digital data values in 
said first sequence of transformed values before said 
encoding step. 

2 0 2 0. The method of Claim 1, wherein each of said input 

digital data values of said sequence of input digital data 
values is stored in a separate memory location, and wherein 
some of said memory locations are overwritten in a sequence 
with said sequence of transformed digital data values as 

25 said digital data input values are transformed into said 
transformed digital data values. 

21. A method of transforming a sequence of input 
digital data values into a sequence of transformed digital 
data values, said sequence of input digital data values 
30 comprising a boundary subsequence and a non-boundary 
subsequence, comprising the steps of: 

running a number of said input digital data 
values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
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digital filter and through a high pass boundary 
forvarS transforrc perfect reconstruction digital 
filter to produce a first subsequence of said sequence 
of transformed digital data values, said first 
subsequence of said sequence of transformed digital 
data values comprising interleaved low and high 
frequency transformed digital data values; and 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
pass non-boundary forward transform perfect 
reconstruction digital filter and also through a high 
pass non-boundary forward transform perfect 
reconstruction digital filter to produce a second 
subsequence of said sequence of transformed digital 
data values, said second subsequence of said sequence 
of transformed digital data values comprising 
interleaved low and high frequency transformed digital 
data values, said low pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
number of coefficients than said low pass non-boundary 
forward transform perfect reconstruction digital 
filter, said high pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
number of coefficients than said high pass non- 
boundary forward transform perfect reconstruction 
digital filter. 

22. A method, comprising the steps of: 

generating a sub-band decomposition having a 
plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data 
value, a second of said plurality of octaves 
comprising at least one second digital data value; 

calculating a sum of the absolute values of said 
at least one first digital data value; 

determining if said at least one first digital 
data value is interesting using a first threshold 
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limit; 

calculating a sum of the absolute values of said 
at least one second digital data value; and 

determining if said at least one second digital 
5 data value is interesting using a second threshold 

limit. 

23. A method of traversing a tree decomposition, said 
tree decomposition comprising a plurality of transformed 
data values, each of said plurality of transformed data 

10 values having a unique address identified by coordinates X 
and Y, comprising the step of: 

calculating at least four transformed data value 
addresses by incrementing a count, the count 
comprising one bit Cl^ in the X coordinate and one bit 
15 Cly in the Y coordinate, to generate said at least 

four transformed data value addresses. 

24. A method, comprising the step of: 
determining an address of a transformed data value in 

a tree decomposition by shifting a value a number of times, 
20 said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
number of times being at least dependent upon said one 
octave. 

25. A method, comprising the step of: 

25 detejrmining an address of a transformed data value in 

a tree decomposition by multiplying a value by a factor, 
said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
factor being at least dependent upon said one octave. 

30 26. A method, comprising the step of: 

determining an address of a transformed data value in 
a tree decomposition by shifting a value a number of times, 
said tree decomposition having a number of frequency sub- 
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bands, said transformed data value being in one of said 
frequency sub-bands, said number of times being at least 
dependent upon said frequency sub-band. 

27. A method, comprising the step of: 

5 determining an address of a transformed data value in 

a tree decomposition by performing a logical operation upon 
a value, said tree decomposition having a number of 
frequency sub-bands, said transformed data value being in 
one of said frequency sub-bands, said logical operation 
10 performed being at least dependent upon said one frequency 
sub-band. 

28. The method of Claim 27, wherein said logical 
operation is a bit-wise logical AND operation. 

29. A method for determining a low pass quasi-perfect 
15 reconstruction filter and a high pass quasi-perfect 

reconstruction filter from a wavelet function, said low 
pass quasi-perfect reconstruction filter having a plurality 
of coefficients, said high pass quasi-perfect 
reconstruction filter having a plurality of coefficients, 

20 comprising the steps of: 

determining a low pass wavelet digital filter and a 
high pass wavelet digital filter from said wavelet 
function, said low pass wavelet digital filter having a 
plurality of coefficients, said high pass wavelet digital 

25 filter having a plurality of coefficients; 

choosing the coefficients of said low pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
processed by said low pass quasi-perfect reconstruction 

30 digital filter the output of said low pass quasi-perfect 
reconstruction digital filter is exactly a power of 2; and 

choosing the coefficients of the high pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
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processed by said high pass quasi-perfect reconstruction 
digital fiTter the output of said high pass quasi-perfect 
reconstruction digital filter is exactly 0, whereby each of 
the plurality of coefficients of said low pass quasi- 
5 perfect reconstruction digital filter is substantially 
identical to a corresponding one of said plurality of 
coefficients of said low pass wavelet digital filter, and 
whereby each of the plurality of coefficients of said high 
pass q\jasi-perf ect reconstruction digital filter is 
10 substantially identical to a corresponding one of said 

plurality of coefficients of said high pass wavelet digital 
filter. 

30. A method of estimating a compression ratio of a 
number of original data values to a number of compressed 

15 data values at a value of a quality factor Q, comprising 
the steps of : 

examining a first block of transformed data values of 
a tree, said first block being one of a number of lowest 
frequency blocks of a high pass component sub-band, said 
20 tree being part of a sub-band decomposition; and 

determining a value of said quality factor Q at which 
said data values of said first block would be converted 
into compressed data values, and hot determining a value of 
said quality factor Q at which any other block of data 
25 values of said tree would be converted into a number of 
compressed data values. 

31. The method of Claim 30, wherein said numJaer of 
original data values represents a frame of an image. 

32. The method of Claim 31, further comprising the 
30 step of: 

determining a number of lowest frequency blocks of 
said high pass component sub-band which would be converted 
into compressed data values given a value of said quality 
factor Q. 
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33. ^ raethod of transforming a sequence of image data 
values, comprising the step of: 

filtering said seqvience of image data values using a 
quasi-perfect reconstruction filter to generate a 
5 decomposition having a plurality of octaves, said quasi- 
perfect reconstruction filter having six coefficients. 

34. The method of Claim 33, wherein said six 
coefficients are selected from the group consisting of: 
30/128, 73/128, 41/128, 12/128, 7/128 and 3/128, 

10 irrespective of sign. 

35. A method of detecting motion in a tree 
decomposition, said tree decomposition comprising a 
plurality of octaves of blocks of data values, comprising 
the steps of : 

15 comparing data values of a first block in an octave 

with data values of a second block in said octave; and 

generating a token indicating motion based on said 
comparing. 

36. A method, comprising the steps of: 

20 generating a sub-band decomposition having a plurality 

of octaves, a first of said plurality of octaves comprising 
at least one first digital data value, a second of said 
plurality of octaves comprising at least one second digital 
data value; 

25 determining if said at least one first digital data 

value is interesting using a first threshold limit; and 

determining if said at least one second digital data 
value is interesting using a second threshold limit. 

37. A method, comprising the steps of: 

30 generating a sub-band decomposition of a first frame 

having a plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data value, a 
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second of said plurality of octaves comprising at least one 
second digital data value; 

generating a sub-band decomposition of a second frame 
having a plurality of octaves, a first of said plurality of 
5 octaves comprising at least one first digital data value, a 
second of said plurality of octaves comprising at least one 
second digital data value; 

comparing said first digital data value of said first 
frame with said first digital data value of said second 
10 frame using a first threshold compare; and 

comparing said second digital data value of said first 
frame with said second digital data value of said second 
frame using a second threshold compare. 

38. A method, comprising the steps of: 

15 reading a sequence of data values from a plurality of ' 

memory locations, each of said data values being stored in 
a separate one of said plurality of memory locations; and 

overwriting some of said memory locations in a 
sequence as said data values are transformed into a 

2 0 sequence of transformed data values of a sub-band 
decomposition. 

39. A method, comprising the steps of: 

performing a function on a plurality of data values of 
a new block to generate a first output value, said new 

25 block being a block of data values of a sub-band 
decomposition of a new frame; 

performing said function on a plurality of numbers to 
generate a second output value, each of said numbers 
substantially equalling a difference of a data value in 

30 said plurality of data values of said new block and a 
corresponding data value in a corresponding plurality of 
data values of an old block, said old block being a block 
of data values of a sub-band decomposition of an old frame; 
and 

35 generating a token • if said first output value has a 



Copied from 10340491 on 04/01/2005 
ciiDCTiTinx cuccT /Pin c 



wo 94/23385 



PCT/GB94/00677 



- 820 - 

predetermined relationship virh respect to said second 
output valtre. 

40. The method of Claim 39, wherein said token is a 
SEND_STILL token. 

5 41. A method, comprising the steps of: 

performing a function on a plurality of data values of 
a new block to generate a corresponding plurality of output 
values, said new block being a block of data values of a 
sub-band decomposition; 
10 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 
values have a predetermined relationship with respect to 
said predetermined number. 

15 42. The method of Claim 41, wherein said token is a 

VOID token. 

43. A method, comprising the steps of: 

subtracting each one of a plurality of data values of 

a new block with a corresponding one of a plurality of data 
20 values of a old block to generate a corresponding plurality 

of output values, said new block being a block of data 

values of a sub-band decomposition of a new frame, said old 

block being a block of data values of a sub-band 

decomposition of a old frame; 
25 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 

values have a predetermined relationship with respect to 

said predetermined number. 

3 0 44. The method of Claim 43, wherein said token is a 

VOID token. 
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45. A method, comprising the steps of: 
determining an absolute value for each of a plurality 

of data values of a block of a sub-band decompoeition; 
determining a sum of said absolute values; and 
5 generating a token based on a comparison of said sum 

with a predetermined number. 

46. The method of Claim 45, wherein said token is a 
VOID token. 

47. A method, comprising the steps of: 

10 processing a sequence of first image data values using 

a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to create a first sequence of 
transformed data values, said low pass forward transform 

15 perfect reconstruction digital filter and said high pass 
forward transform perfect reconstruction digital filter 
each having coefficients chosen from a first group of 
coefficients independent of sign; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 
and 

using digital circuitry to process said second 
sequence of transformed data values using a low pass 
inverse transform perfect reconstruction digital filter and 

25 a high pass inverse transform perfect reconstruction 

digital filter into a sequence of second image data values, 
said low pass inverse transform perfect reconstruction 
digital filter and said high pass inverse transform perfect 
reconstruction digital filter each having coefficients 

30 chosen from a second group of coefficients independent of 
sign. 

48. The method of claim 47, wherein said digital 
circuitry used to process said second sequence of 
transformed data values is a digital computer having a 
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microprocessor. 

49. The method of claini 47, wherein at least one of 
the coefficients in said first group of coefficients is not 
contained in said second group of coefficients. 

5 50. The method of claim 47, wherein said first group 

of coefficients has a different number of coefficients than 
said second group of coefficients. 

51. The method of claim 50, wherein said sequence of 
first image data values is a sequence of chrominance data 

10 values. 

52. The method of claim 50, wherein said low pass 
forward transform perfect reconstruction digital filter and 
said high pass forward transform perfect reconstruction 
digital filter each have four coefficients, and wherein 

15 said low pass inverse transform perfect reconstruction 

digital filter and said high pass inverse transform perfect 
reconstruction digital filter each have two coefficients. 

53. The method of claim 52, wherein said sequence of 
first image data values is a sequence of chrominance data 

20 values. 

54. The method of claim 47, wherein each of said 
coefficients of said low pass inverse transform perfect 
reconstruction digital filter and said high pass inverse 
transform perfect reconstruction digital filter is selected 

25 from the group consisting of: 5/8, 3/8 and 1/8, independent 
of sign. 

55. The method of claim 47, wherein said converting 
step comprises the steps of: 

encoding said first sequence of transformed data 
30 values into a compressed data stream; and 
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decoding said compressed data stream into said second 
seouence of- transformed data values. 



56. A method comprising the step of using digital 
circuitry to process a sequence of image data values using 

5 a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to generate a sub-band 
decomposition, said low pass forward transform perfect 
reconstruction digital filter and saiid high pass forward 
10 transform perfect reconstruction digital filter each having 
four coefficients, each of said four coefficients being 
selected from the group consisting of: 5/8, 3/8 and 1/8, 
independent of sign. 

57. The method of claim 56, wherein said digital 
15 circuitry comprises means for low pass forward transform 

perfect reconstruction digital filtering and for high pass 
forward transform perfect reconstruction digital filtering. 

58. A method comprising the step of using digital 
circuitry to process a sequence of transformed data values 

20 of a sub-band decomposition using an odd inverse transform 
perfect reconstruction digital filter and an even inverse 
transform perfect reconstruction digital filter, said odd 
inverse transform perfect reconstruction digital filter and 
said even inverse transform perfect reconstruction digital 

25 filter each having four coefficients, each of said four 
coefficients being selected from the group consisting of: 
5/8, 3/8 and 1/8, independent of sign. 

59. The method of claim 58, wherein said digital 
circuitry is a digital computer having a microprocesBor . 

3 0 60. A method comprising the step of generating a 

compressed data stream indicative of a video sequence from 
a sub-band decomposition, said compressed data stream 
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comprising a first data value, a first token, a second data 
value, and a second token, said first token being 
indicative of a first encoding method used to encode said 
first data value, said second token being indicative of a 
5 second encoding method used to encode said second data 
value, said first token consisting of a first number of 
bits and said second token consisting of a second number of 
bits. 

61. The method of claim 60, wherein said first 

10 encoding method is taken from the group consisting of: SEND 
mode, STILL_SEND node, VOID mode, and STOP mode. 

62. The method of claim 60, wherein said first token 
is a single bit token. 

63. A method, comprising the steps of: 

15 forward transforming image data values to generate a 

first sequence of transformed data values of a first sub- 
band decomposition, said first sub-band decomposing having 
a first number of octaves; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 

using digital circuitry to inverse transforming said 
second sequence of transformed data values into a third 
sequence of transformed data values, said third sequence of 
transformed data values comprising a second sub-band 

25 decomposition having a second number of octaves, said 
second number of octaves being smaller than said first 
number of octaves, said second sub-band decomposition 
having a low pass component, said low pass component of 
said second sub-band decomposition comprising data values 

3 0 indicative of rows of data values of an image, said rows of 
said image extending in a first dimension, said image also 
having columns of said data values extending in a second 
dimension; 

expanding said low pass component in said first 
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dimension using interpolation to generate an interpolated 
low pass cCftponent; and 

Gjqjanding said interpolated low pass component in said 
second dimension by replicating rows of said data values of 
5 said interpolated low pass component. 

64. The method of claim 63, wherein said digital 
circuitry is a digital computer having a microprocessor. 

65. The method of claim 63, wherein said converting 
step comprises the steps of: 

10 encoding said first sequence of transformed data 

values into a compressed data stream comprising tokens and 
encoded data values; and 

decoding said compressed data stream into said second 
sequence of transformed data values. 
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